JULIO -AGOSTO 86 - 300 ptas. 


REVISTA EXCLUSIVA PARA USUARIOS 


AÑO II - Número 23 


DESCUBRIMOS 


Pep ZA a PE 
A PRECIOS QUE HACEN ESCUELA 


etc 


OBRESALIENTES 


Premie el esfuerzo 
de sus hijos por fin 
de curso. 
Regáleles los mejores ordenadores 
personales a precios de auténtica 
oportunidad. 

Investrónica, además, les hace otro gran regalo. 
joysticks, interfaces, cursos de Basic en vídeo, 
lápides ópticos.. 


X L af Spectrum Plus, Spectrum 128 y QL, tres ordenadores muy 

estudiados, a precios que son una lección magistral. 

Dé un ejemplo. Haga un doble regalo fin de curso con Investrónica 

1 Y además, precios muy especiales para lotes de Interface |, Microdrives e impresoras. 
Infórmese en su concesionario Investrónica más cercano. 


SPECTRUM PLUS, SPECTRUM 128 Y QL 


Regale un ordenador QL 
desde 44.550 ptas. o, si lo 
prefiere, una configuración de 
ordenador y monitor desde 
65.300” ptas. 

infórmese de nuestras 
grandes ofertas de QL con 
monitores monocromo y c 
color con media y alta resolu 
ción e impresora 


investronica 


Regale un Spectrum 128, 
que incluye dos cintas de 
juegos, un manual de utiliza 
ción y una cinta de demostra- 
ción 

Su distribuidor Investrónica 
le regala, además 

Un joystick más un Inter- 
face ||, 
oun Curso de Basic en video. 


Regale un Spectrum Plus, 
que incluye un lote de 6 cintas 
de juegos. Su distribuidor In- 
vestrónica le regala, además 

Un joystick más un Inter- 
tace Il 
o un Curso de Basic en vídeo, 
o un lápiz óptico. 


(PROMOCION ESPECIAL POR TIEMPI 


* Precio sin IVA 


906 


lò. 4 PROGRAMAS 


Aunque muchos de vosotros ya 
estaréis de vacaciones, la sección 
de programas de este número está 
dedicada a las matemáticas, 
concretamente a las progresiones. 


AUTO 


SUMARIO 
ANOHI--N: 23 


GUIA DEL HACKER: 
CYBERUN 


46 


Después de destripar el juego, 
conseguimos recoger todos los 
cristales de cybernita y escapar del 
campo de fuerza que nos atrapaba 
sin perder ninguna ۰ 


6 TURBOPROTECTOR 


Si quieres aumentar la velocidad 
de carga y al mismo tiempo 
proteger tus programas de miradas 
indiscretas, en este articulo te 
contamos como hacerlo. 


SONIDO POR DOS 


2 2 CANALES 


A partir de ahora podremos 
disfrutar de música a dos voces con 
un virtuosismo comparable al de 
cualquier otro ordenador y olvidar 
todas las críticas sobre el sonido de 
nuestro querido Spectrum. 


3 ] SUPLEMENTO QL 


Gráficos interactivos en tres 
dimensiones 

Ricardo García, nuestro experto en 
gráficos, comenta las técnicas 
básicas de los gráficos 
tridimensionales y nos propone un 
interesante ejemplo. 


APRENDIENDO 
3 LENGUAJE 
MAQUINA 


En nuestro recorrido por el sistema 
operativo encontramos la zona de 
información para canales y 
analizamos el tratamiento de los 
dispositivos de entrada y salida. 


SERVICIO DE EJEMPLARES ATRASADOS 


| contenido delos ejemplares 


DISPONEMOS 
DE TAPAS ESPECIALES 
PARA SUS EJEMPLARES DE ZX 


(sin necesidad de encuademación) 


Núm. 11 - 300 ptas. 

Actualidad/La otra cara del LOGO/ 
Juegos/El Spectrum habla castella- 
no/SOFTAID ayuda para Etiopía/ 
S.O.S. aqui el Spectrum/Dibujar con 
lapiz óptico/QL Magazine: Procesa- 
dor de textos. Teclas de función pro- 
gramables/Programas. 


Núm. 12 - 300 ptas. 
Actualidad/Inteligencia artificial/La- 
piz óptico dk'TRONICS/Juegos/Ana- 
lisis/Bingo/Z-80 PIO/Código maqui 
na/Analisis:  MASTERFILE/Progra- 
mas. 


Núm. 13 - 300 ptas. 
Actualidad/Discos: Discovery 1/Jue- 
gos/Inteligencia artificial/Un nuevo 
sistema operativo/QL Magazine: Ar- 
chive, Cartridge doctor. Aplicaciones 
comerciales/Código maquina/Pro. 
gramas. 


Núm. 14 - 300 ptas. 

Actualidad, Spectrum 128/Cálculo 
de estructuras para ingenieros y ar- 
quitectos/HELP utilidades en micro- 
drive/Juegos/El microdrive ese des- 
conocido/Código máquina/QL' Ma- 
gazine: GRAPHIC QL. Juegos. Discos 
de 720K/Un nuevo operativo/Progra- 
mas. 


Núm. 15 - 300 ptas. 
Actualidad/Spectrum 128/Un nuevo 
operativo/Circulos redondos/Jue- 
gos/Utilidades: BETA-BASIC/QL Ma- 
gazine: Introducción al SUPER BA- 
SIC. Nuevas utilidades/Hardware: 
Puertas lógicas/Código maquina/ 
Programas. 


Núm. 16 - 300 ptas. 
Actualidad/Cinco horas con 
SCREENS/Hardware pråctico/Cál- 
culos de infinita precisión/Juegos/ 
Un nuevo operativo/QL Magazine: 
Graficos en SUPER-BASIC. Dibujan- 
do con ratón. Archivos con Archive. 
Programa/La ùltima batalla, Juego 
estratégico. 


Núm. 17 - 300 ptas. 
Actualidad/Gráficos — interactivos/ 
Juegos/Código máquina/Un nuevo 
operativo/Trucos de programación/ 
QL Magazine: Radiografía del QL. 
Gráficos en SUPER-BASIC/Libros/ 
Programmas. 


Núm. 18 - 300 ptas. 
Actualidad/Introducción al C/Libros/ 
Juegos/De cinta a microcinta/Visión 
panorámica de los microprocesado- 
res más comunes/QL Magazine: Co- 
py de grises. Microprocesadores 
68000, una familia numerosa/Curio- 
seando en la ROM/Programas. 


Complete su colección de 
A continuación le resumimos el 
aparecidos hasta ahora. 


Núm. 2 - 300 ptas. 

Gráficos profesionales/Desplaza- 
miento pixel a pixel/Utilización de ru- 
tinas/Construcción del interface 
centronics/Programas de utilidad 
para microdrive/Rutina reset en códi- 
go máquina/Análisis del editor de 
textos Tasword/Interfaces para im- 
presoras/Programas 


Nam. 3 - 300 ptas. 
Novedades sonimag’84/Ampliando 
el Basic/Programas para ordenar 
programas/Gráficos con el VU-3D/ 
Lenguaje Forth/Archivos en micro- 
drive/Programación de un interface 
de impresora/Programas 


Núm. 4 - 300 ptas. 

De profesión: programador/Consola 
para el Spectrum/Comparación có- 
digo máquina-Basic/Análisis progra- 
ma contabilidad/Calendario/Pascal/ 
Programas. 


Núm. 5 - 300 ptas. 

Floppys para Spectrum/Diseno asis- 
tido por ordenador/64 Caracteres 
por linea/Juego de la vida/Pascal/Asi 
hacemos las portadas/Control de 
evaluaciones/Programas. 


Num. 6 - 300 ptas. 

Representaciòn de funciones/Todos 
los caminos conducen a la ROM/Jue- 
gos/Pascal/Construcción de un lápiz 
óptico/Programas de gestión. El SITI/ 
Logo: torgugas para todos] Interrup- 
ciones del Z-80/Programas. 


Núm. 7 - 300 ptas. 

Del 48 al PLUS paso a paso/¿Plotter 
para Spectrum?/Juegos/Libros_ de 
código maquina/Lapiz óptico, Pro- 
gramación del montaje/El LOGO en 
la  escuela/Pascal/Floppys para 
Spectrum/Programas. 


Núm 8 - 300 ptas. 

Amplía tu memoria... a 48 K/Arquitec- 
tura: análisis del PREYME/Juegos/ 
FORTH. Nociones básicas/Una clave, 
please/QL Magazine. Ultimas nove- 
dades, análisis de software, Lengua- 
jes/Aula informática con Spectrum/ 
Programas. 


Núm 9 - 300 ptas. 

Spectrum  parlanchin/Juegos/Aula 
informatica con Spectrum/Análisis: 
Comercial 4/Pascal/Periféricos: Wa- 
fadrive/QL Magazine: EASEL lo mejor 
de PSION. Música con QL/Desplaza- 
miento Pixel a Pixel, aportación de 
lectores/Programas/Programer II 


Núm, 10 - 300 ptas. 

Discos: invesdisc 200/Juegos/Dos 
programas simultaneos/Proteccion | 
del software/Conozca extremadura, 
consulte a su ordenador/Desensam- 
blador Z-80/Sofware educativo/QL 
Magazine: novedades Informat, Hoja 
de cálculo, Ajedrez/Construya su 
propio Joystick/Pascal/programas. 


JI a eels 


Rê he س‎ 


Gizmo 


Para hacer su pedido, rellene este cupón HOY MISMO 
y envielo a: 


Todospectrum 


Ruego me 
PECTRUM 


Bravo Murillo, 377 
Tel. 733 96 62 - 28020 MADRID 


envien los siguientes ejemplares atrasados de TODOS. 
al precio de 300 pts 

El importe lo abonaré 

O POR CHEQUE O CONTRA REEMBOLSO O CON MI TARJETA DE 

CREDITO O AMERICAN EXPRESS O VISA O INTERBANK 


Número de mi tarjeta 


Fecha de caducidad 
NOMB! 

DIREC 

CIUDAD 
PROVINCIA 


EDITORIAL 


SPECTRUM PLUS II 


En septiembre, coincidiendo con el Personal Com- 
puter World Show, asistiremos a la presentación de 
nuevos productos Sinclair. Amstrad lanzará el Spec- 
trum Plus II, parecido al actual, pero con un cassette in- 
corporado y con 128 Kbytes de memoria RAM. 


El nuevo modelo de la gama Sinclair se montará en 
la planta de Timex en Dundee, y no en Corea del Sur co- 
mo las restantes máquinas Amstrad. Timex también 
construirá una impresora matricial dedicada al Spec- 
trum Plus II, probablemente basada en la que acompa- 
ña a los ordenadores PCW 8256 y PCW 8512. 


De las otras dos máquinas que Sir Clive tenía en 
proyecto, el Pandora y el SuperSpectrum de nombre 
clave Loki, apenas se sabe nada por el momento, ni si- 
quiera si los derechos de fabricación y comercialización 
corresponderían a Amstrad. 


Por otra parte, comienzan a conocerse nuevos as- 
pectos del acuerdo Amstrad Sinclair. Los derechos ad- 
quiridos por Alan Sugar no son para todo el mundo, co- 
mo se afirmó en principio, puesto que en Portugal y en 
los países del Este le corresponden a Timex. Esta em- 
presa suministrará al gobierno de Polonia 800.000 orde- 
nadores Timex 2068 (Spectrums con port de joystick, 
chip de sonido y algunas otras mejoras) y 200.000 dobles 
unidades de disco FDD 3000 con el sistema operativo 
CP/M. 


En cuanto al QL, que según Sugar habría muerto, es- 
tá más de actualidad que nunca. Dos empresas, Eider- 
soft y Farmintel, están trabajando en un SuperQL basa- 
do en el Motorola 68000. La máquina de Farmintel, Ia- 
mada QLT, ha sido desarrollada por Tony Tebby, autor 
del QDOS. Ambos ordenadores serán plenamente 
compatibles con el QL, aunque le superarán en veloci- 
dad, memoria y otras prestaciones. 


En los próximos números esperamos poder infor- 
maros más detalladamente de todos estos proyectos. 
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Sideseas colaborar en TODOSPECTRUM 
remite tus artículos o programas a Bravo 
Murillo, 377. 5.0 A. 28020 Madrid. Los 
programas deberán estar grabados en 
cassette y los artículos mecanografiados. 
A efectos de remuneración, se analiza cada 
colaboración aisladamente, estudiando su 
| complejidad y calidad. 


Ha llovido mucho desde que los primeros programas TURBO aparecieron en el 
mercado. Aquellos cargadores volvían locos a los piratas más hábiles y 
permitieron vender un gran número de cintas a las compañías que aprovecharon 
este nuevo sistema de protección. Sin embargo son pocos los usuarios que 
saben utilizar esta técnica para la protección de sus programas o para acortar los 
tiempos de carga de los mismos. He aquí un programa que lo hará posible sin 
necesidad de tener extensos conocimientos de programación. Basta con 
cargarlo, ejecutarlo y seguir los pasos que nos indique. 


be ser salvado a cinta o microdrive. 
Después puede ser ejecutado, con 
lo que comenzará a ser pokeado el 
código máquina de las líneas DATA 
mientras se comprueba, mediante 
las sumas de control, si hay algún 
error. Caso de haberlo, el programa 
indica en qué línea se ha producido 
para que pueda ser rectificado, 


Funcionamiento del programa 


Cuando el proceso de carga de las 


utilicemos. Antes de ejecutar el pro- 
grama deberemos, por lo tanto, te- 
ner preparados en una cinta cada 
uno de los bloques que vayamos a 
utilizar (si es posible, en el orden có- 
digo máquina-pantalla-BASIC). 
Quien disponga de ensamblador 
podrá teclear el código máquina en 
él como se explica más adelante, pe- 
ro el que lo prefiera puede dejar a un 
lado el listado assembler y copiar 
simplemente el listado BASIC, que 
incluye un cargador hexadecimal. 
Una vez tecleado el programa de- 


ste programa es un híbrido BA- 


SIC-Código máquina que nos 

perm grabar una versión 
TURBO de cualquier programa que 
no utilice la parte superior de la me- 
moria (aprox. 1 Kbyte). El programa 
a salvar podrá estar compuesto de 
una pantalla de carga, un programa 
BASIC y un bloque en código má- 
quina o bytes, por lo que si usamos 
alguna matriz de datos deberemos 
unirla al BASIC antes de grabarlo, y 
también deberemos unir en un solo 
bloque todo el Código máquina que 


PUSH HL 
POP DE 

ADD HL,BC 

LD (HL), 128 

INC HL 

PUSH HL 

LD ` (E_LINE),HL 
LD (CH_ADD),HL 
LD HL, (BUFCB+15) 
ADD HL, BC 

LD (VARS),HL 
CALL SET_MN 

LD A,255 

SCF 

CALL LD_BYT 

JR NC,ERR-R 


POP HL 
LD A, (FINE!) 
ceo 

FET NC 

LD (FIM) ,HL 
RET 


LÉ BC MOEZI 
CALL CL SET 


DINZ CLL1GA 
LD BU, MOE) 


JP CL_SET 
Lp A, (PANT) 
وه‎ A 
RET z 


LD HL,18498 
LD DE, BUFLIO 
LD A,B 

L0 BÈ 
PUSH HL 
LDIS 
POP HL 
INC H 
DEC A 
RET M 
JR NZ,5. BEL 
LD 8 
iR SBEL 


CALL CLSLIO ۱ 
LD A, (PANT) | 
oR A 
RET z 
LD HL, PUFLIO 
LD DE, 18496 


LD A,B 
LD BC, 32 


LD DE, 22848 | 
18 L POL 


pr 
LD 0 

LD 2 

LD ۸ 

DINZ RTRDA | 
OUT (254).A 

xOR 00001016 

LD By 144 

DEC L 

JR NZ,RTRDL 

DEC B 

DEC H 


JF P,RTRDI 
Lp 7 


تا 


لامج 


S_BUL 


وه 


اقا 


TRESA 


KIRDI 


20و 
830 
840 
850 
840 
870 
880 
885 
890 
900 
910 
920 
930 
940 
950 
760 
980 
990 
1000 
1010 
1070 
1030 
1040 
1050 
1ué0‏ 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1150 
1160 
1170 
1180 
1154 
1200 
1210 
1220 
1280 
1240 
1250 
1260 
127 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1910 
1420 
1430 
1490 
1450 
1460 
1970 
1480 
1490 
1500 
1510 
1520 
1530 
1590 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 


$ TURBOPROTECTOR (e) LGP 

ORG 64460 
BUFL10 DEFS 288 
BUFCB DEFS 17 
TRBPRT LD A,2 

CALL CHN_OP 

LD A, (BASIC) 

OR A 

CALL NZ,LD BSC 
TREPRO CALL CLSL10 

LD DE,HOPAL 

XOR A 

CALL PO MSG 

CALL EP TCL 

CALL 0 

LD DE,47 

LD IX,CAB_CB 

KOR A 

CALL SA EYT 

JR NC,ERR-R 

LD HL, (FIN) 

LD DE, (BASE) 

OR A 

SEG HL, DE 

PUSH DE 

LD (LONG),HL 

PUSH HL 

LD 1X,CARG_B 

LD DE,END-CARG_B 

LD ۰ 5 

CALL SA BYT 

JIR NC,ERR-R 

POP DE 

POP 1% 

CALL TRESA 

CALL CLSL10 
TRBPRI LD DE,MENSG 

KOR A 

CALL 6 

CALL EP TCL 

CALL LD-L10 

LD A, (IY-50) 

ce ۳ 

JR Z,ERR_O 

CP vos 

JR Z,TRBPRO 

JR TREPRI 
ERRO RST 8 

DEFB 255 
ERR_R RST 8 

DEFB 26 
LD_BSC LD DE, 17 

LD IX, BUFCB 

JR NC,LD BSC 

LD A, (BUFCB) 

OR A 

JR NZ,LD BSC 

CALL 0 

LD BC,MOF21 

CALL CL SET 

LD DE,#O9CO 

XOR A 

CALL 6 

LD Bylo 

LD HL,BUFCB 
P_NOMB INC HL 

LD A, (HL) 

RST 16 

DINZ P_NOMB 
LD_BS1 LD EC, (PROG) 

PUSH BC 

POP Ix 

LD HL, (BUFCB+ O 


10 
20 
20 
40 
50 
60 
70 


120 
130 
140 
150 
160 
170 
180 


DATAs ha finalizado, aparece en 
pantalla el mensaje “PROGRAMA 
BASIC?: (S/N)”, al que hay que 
contestar si lo que pretendemos 
convertir en TURBO es (o in- 
cluye) un programa BASIC. Sólo en 
el caso de que contestemos afirmati- 
vamente (lo que, evidentemente, se 
hace pulsando “S”) nos pedirá la 
línea de autoejecución. Si quere- 
mos que, al terminar de cargarse, el 
programa ejecute a partir de una de- 
terminada línea (algo asi como el 
SAVE con LINE) habrá que especi- 
ficar aqui esa línea, y si no queremos 
autoejecución” bastará con pulsar 
ENTER. 

Para un programa BASIC tam- 
bién nos pedirá “LINEA PARA ON 
ERROR”: esta es una medida de 


Te 


protección que hace que, si mien- 
tras se corre el programa BASIC se 
pulsa BREAK (o se produce cual- 
quier error) la ejecución pase a una 


línea determinada del programa, 
donde podría autodestruirse o sim- 
plemente imprimir “¡Ya cállate, pi- 
rata asqueroso!” y comenzar a eje- 
cutar desde el principio (si quere- 
mos abstenernos de usar esta op- 
ción bastará con pulsar ENTER). 
Sólo hay una forma de salir de un 
programa que utilice esta protec- 
ción, y esintroduciendo “USR 8” (o 
algunos otros USRs) en un INPUT 
numérico; esto hace que se salte a la 
rutina de errores en busca del valor 
de USR, con lo que se acaba inde- 
fectiblemente en la rutina principal 
del editor. Esto puede evitarse su- 
primiendo a toda costa los INPUTS 
numéricos y utilizando alfanuméri- 
cos seguidos de un VAL que pase el 
valor a una variable numérica. 


1640 DINZ RTRDZ 
ree OT eal a 2450 ADD HL, DE 
{680 ae 20 LD DE, ENTCRI 
170 LD 2,55 2470 LO BC,END-ENTCRI 
1680 RTRDZ DINZ RTRDS 2400 tore 
1690 QUT 1254,4 Red's a neuer 
1700 تا‎ Eê 2300 LD DE, (LONG) 3320 TRELDA LD (1X),L 
1710 Lo Bas 2510 LD IX, (BASE) 2330 INC 1X 
10 vet 2520 JP ۸ 340 DEC DE 
1730 TRESAO LD A,D en 3350 LD B,178 
1746 ante 2540 ENTCRI CALL TRBLD هدک‎ IRELDS LD Lyd 
55 JIR- Z TRESS 2550 LD A, (BASIC) 33/0 IKBLD CALL LDEDG2 
mann Up E wee 2560 oR A 3380 JR NC,ERROR 
1770 TRESAL LD AH 2570 CALL Z,NEWBSC 3390 LD 4,189 
tê0 RRL 2580 oR A 3400 Ce B 
تن تم‎ es 590 ود‎ Z,ENTCR2 3410 RL oL 
fee cae 2000 LD HÛ, (LINED 3420 LD B,176 
50 mas 2610 LD (NEWPPC) , HL $430 JR NG, TRBLD6 
ie pye 2020 LD ۵ LD AH 
a LRAT 2430 ENTCRZ LD HL,ENTCRI-1 XOR L 
nea AA 2640 LD — (RANTOP) HL LD HA 
1850 TRBSA3 LD A,C ze5u DEC HL GRAD 
1860 BIT 7B zen SEN A oR E 
1870 RTRD4 DINZ RTRD4 zco EE HE JF NZ, TRBLD4 
7006 RT TE 2080 LD (ERR_SP),HL 3500 LD aH 
ied LD LB 2690 LD A, (ONLERL+1) 3510 OR A 
1900 RTRDS DJNZ RTRDS e SEA A IR- NZ ERROR 
1910 TRESA4 OUT (254), 2710 JIR C,ENTCR3 pen 
ZAN ED se 2720 LD BC,ON_ERR 3530 BRDRFN LD A, (1¥+14) 
1930 a E TREE AE. 2730 LD (HL), 3540 RRA 
est; د لیات‎ 2740 INC HL 3550 RRA 
1 a 2750 LD (HL),B 3500 RRA 
EE Son RI 2760 ENTCRS CALL CLS 3570 OUT (254,4 
1970. TRESS E 2770 LD HL, (ENTCOD) 3580 El 
1980 JIR NZ,RTRD4 ES ain a590 RET 
1990 DEC DE 2 E 3600 
2006 INC IX RET Z 3610 ERROR CALL CLSLIO 
2010 La 25 3P (HL) 3620 LD DE, #1524 
2020 LÉ ۴ 3630 XOR A 
2040 IM A, (254) NEWESC LD HL, (PROG) 3690 + CALL 6 
2040 RRA LD ۵ 3650 CALL EP_TCL 
2080 JR HCLERRLL LD (VARS), HL 3660 RST o 
LD AD INC HL 3670 
INC A LD 'E_LINE),HL 3680 ON_ERR LD SP, (ERR_SP) 
JR MZ, TRESAO JP SET_ZMN 3720 CALL SET MN 
JË BRDRFN 8730 LD HL, (ON. ERL) 
EP TOL RES ۱ 3740 LP (NEWPPC) ,HL 
RST e EL 3750 ها‎ (1Y+10),0 
DEFE 20 ERICA BIT S.(ry+1) 3760 JP LIN NW 
JP Z,EP TOL 3780 
2140 MeNSG DEFN 128,23,8 RET 3790 BASIC DEFE O 
2150 DEFM ۰ OTRA COPIA? 3800 PANT DEFE O 
in" TRELD DI 3810 LINE DEFW O 
2120 DEF 4a0 2920 io c,36 3620 BASE — DEFW O 
2170 2940 cpa 3830 FIN DEFW O 
2180 LAB-CB DEFE O 2990 TRELDO JR NZ,ERROR 3840 ENTCOD DEFW O 
10 3000 |PELDI CALL LDEDGL 3850 ON_ERL DEFW O 
ENP-CARG_B 3010 JR NC, TRELDO 3860 LONG DEFW O 
O, END-CARG_E 3020 LD L,2a 3880 
KIRDLL DINZ RTRILA 3883 SGLESC DEFB 13,127,0,1,0 
©, SGLESI-8-1 Dc L 3885 END EQU $ 
249,192, +(#,19 JR NZ,RTRDLA 3887 n 
CALL LDEDG2 3889 
0,23635 JR NC, TRBLDO 3890 LDEDG1 EGU #05E7 
۱ 48,14 LD Hye 3900 LDEDG2 EQU #05E3 
0, 256 LD Lo 3905 CHN_OP EQU #1601 
و‎ 199,48; 1 ۱۷۵۵2 LD B,156 3910 LD_BYT EQU #0556 
CALL LDEDG2 3920 SA-BYT EGU WO4C2 
DEFW 0,23636 JR NC,TRBLDO 3930 ۴۵۷56 EGU 060۸ 
DEFE 0, "+",48, 14 LD 8 3940 SET MN EQU ۵ 
DEFW 0,43 CF R 3960 CLS EQU #ODéB 
۱ DEFB 4 JR NC; TRBLDL. 3965 CL SET EGU WODD9 
Inc H 3970 LIN_NW EGU #1B9E 
f ENTCRG LP HL, (RAMTOP) JR NZ, TRBLD2 3980 
LD DE,ENTERI-1 4160 IKBLOS LD B,201 3990 PROG EQU 23635 
LD BC,24 s190 CALL LDEDGL 4000 E_LINE EQU 23641 
۱ LDDR 3200 JR NC, TRBLDO 4010 VARS EGU 23627 
INC DE 3210 LD A,B 4020 NEWPPC EQU 23616 
EX DE,HL azeu ce 212 4030 ERR_SP EGU 3 
LD 5۶,۷ 3230 JR NC,TRBLD3 2490 RAMTOP EQU 0 
| LD HL, (PROS! 3290 CALL LDEDG1 ~ 4045 CH_ADD EOU 5 


LO DE,ENTCRI-CARG 2250 JR NC, ERROR 


"CODIGO MAQUINA?: 
LET C=A 


DE INICIO? 
LET AF=STRE 
IF ORGC* BASE 


LONGITUD?: 
INPUT LNGC: LET A#=STR 
LET FIN=ORGC 


DE EJECUCI 
(ENTER FARA NO EJEC.) + 
GO SUB 340: 
THEN LET ENTC=VAL A+ 
DE CARGA?: 
LET P=A: 


El programa salvará toda la ver- 
sion TURBO como un bloque en el 
que se incluye pantalla, BASIC y có- 
digo máquina, por lo que es muy 
aconsejable que éste sea lo más 
compacto posible. Si incluye panta- 
lla o BASIC, es importante que el 
código máquina ocupe la zona de 
memoria más baja posible; un sitio 
ideal para las rutinas cortas es el 
buffer de la impresora. 


Después de consultarnos sobre el 
código máquina se nos pregunta si 
vamos a utilizar pantalla de carga, y 
tras confirmar la exactitud de los da- 
tos introducidos anteriormente (si 
la negamos el proceso comienza ~ 
desde la primera pregunta) empieza 
la fase en la que se carga cada blo- 
que. 


Carga y grabación 


Una vez que hayamos confirma- 
do los datos introducidos, el progra- 
ma nos indicará cuándo está prepa- 
rado para cargar cada uno de los blo- 
ques que hayamos escogido. Co: 
menzará con el código máquina (si 
lo hubiera), seguido de la pantalla 


R=VAL A$ 
110 PRINT 
120 GO SUB 310: 


30 CLEAR 64459: GO SUB 500 130 IF NOT C THEN GO TO 170 
40 140 PRINT " DIREC. 
50 LET ENTC=0: LET FIN=O: LET a eg: INPUT ORGC: 
ONERR: 768: LET BASE=65535: LET ORGC: GO SUB 340: 
LINE=10000 THEN LET BASE=ORGC 
60 PRINT "PROGRAMA BASIC?: ۶ 150 PRINT ;" 
70 GO SUB 310: LET B=A BM gs 
80 IF NOT B THEN GO TO 110 + LNGC: GO SUB 340: 
90 LET BASE=23568: FRINT " L +LNGC 
INEA DE AUTOEJECUCIO 160 PRINT " DIREC. 
(ENTER SI NINGUNA) ss INFUT ONU 


3: INPUT LINE A$: 
IF At. 
170 PRINT "PANT. 
180 GO SUB 310: 
HEN LET BASE=16384: 
6 THEN LET FIN=23296 


“ON 


60 S 
LET ONER 


10.REM TURBOPROTECTOR (C)LGP 


"" THEN LET LINE=VA 
LINEA PARA 

(ENTER SI NI 
INPUT LINE At: 


Tanto si el programa incluye BA- 
SIC como si no, se nos pregunta 
después si utilizamos codigo maqui- 
na, y, en caso de que contestemos 
afirmativamente, se nos pide la di- 
rección de inicio, la longitud y la di- 
rección de ejecución. Esta últimadi- 
rección, deberá ser el punto de en- 
trada del código si es que lo hay (en 
caso contrario, ۵ si no queremos 


El turboprotector crea un 
pequeño programa 
BASIC que contiene el 


cargador turbo y los 
datos del siguiente 
bloque. 


que se ejecute bastará con ENTER), 
con lo cual se saltará a esa dirección 
al terminar el proceso de carga. En 
el caso de que el programa incluya 
también una parte en BASIC con 
autoejecución comenzará a ejecu- 
tarse el código, pero cuando aparez- 
ca el RET que devuelva el control se 
seguirá en la línea correspondiente 
del BASIC. 


۳ 


20 PORE '23658,8 


[LINE Af: GO SUB 340 
| 100 IF As 

L At: PRINT 
ERROR" "? 
NGUNA) 
UB 340: 


i 
IF At: 


THEN 


FARADO FARA CARGAR 
LOAD ""CODE ORGC,LNG 


FLASH 15" P 
CODIGO ۶ 
C: CLS 

270 IF ۳ THEN 
T FLASH ۲ 


BEEF 
10,070 


ARA CARGAR PANTALLA ": LOAD ۵ 
REENS$ RANDOMIZE USR 64990 
280 IF B THEN BEEP FRIN 
T AT 10,0; FLASH 13" FARA 
CARGAR PROGR. BASIC 
290 RANDOMIZE USR 64765 
300 
10 PRINT " (S/N) Sa 
IF Af="" THE 
"UN" THEN 
FRINT A$: LET A=A$="S': BEE 


,10: RETURN 


"QUE NOMBRE LE FONGO? 
DIM B£(1,10): INPUT LI 

LET Af#=B£(1): GO SUB 340: 
PORE 65182+N,COD 
NEXT N 


190 PRINT 


E B$(1,N): 


200 IF NOT B+C+P THEN RUN 

210 PRINT “"DATOS CORRECTOS?: "3 
GO SUB 310: CLS IF NOT A THE 

N RUN 

220 PORE 65521,FN L (BASE) FOKE 

65522,FN H(BASE): POKE 65523,FN 

L(FIN): FOKE 65524,FN H(FIN) 

230 POKE 65517,B: POKE 65519,FN 


L(LINE): FOKE 65520,FN H(LINE) 

240 POKE 65525,FN L(ENTC): FOKE 

65526,FN H(ENTC): FOKE 65518,F: 

POKE 65527,FN L(ONERR): POKE 65 
528,FN H(ONERR) 

250 IF NOT 

260 BEEF’ ۰ 


620 RETURN 

630 

800 DATA "3EO2CDO1163AEDFFE7C46 
AFDCDCBFD114109AFCDOAOCCDADFFCDF 
CFD111100DD219EFEAFCDC204",5355 

810 DATA "JO422AFIFFEDSBF1FFBZE 
DS20522F9FFESDD21AFFE1151013EFFC 
DC2043025D1DDE1CD1DFECDCB" , 6098 


820 DATA "FD1188FEAFCDOAOCCD4DF 
FCDFCFDFD7ECEFE4E2806FES328A518E 
£CFFFCF1A111100DD21ECFCAF37CD56" 
,6060 

830 DATA "05S30F23AECFCB720ECCDC 


EFDO01210FCDD90D11C009AFCDOAOCOGÓ 
AZLECFC2 D710FBED4ES: 
840 DATA "CSDDE12AF7FCESD109568 
OZZES AFBFCO9Z22Z4BSCC 
DBOL63EFFS A7E13A" , 483 
850 DATA "FAFFBCDOZ2 C901210 
ECDD90D06203E20D710F 1 2 
DSAEEFFB7C82140481 1CCF 


560 DEF FN H(N)=INT 
170 DEF FN L(N)=N-FN H(N) «256 
400 
500 STORE : LET D=64765 
510 PRINT TAB 10; FLASH 1;" FOK 
EANDO 
520 FOR N=800 
530 READ A+,A:z 


TO 99۵ STEP 10 
LET £=0 


540 FOR M=1 TO LEN ۵۶-1 STEP 2 
550 LET V=16x* (CODE A$(M)-48-7x( 
A$ (M)>"9"))+CODE A$(M+1)—-48-7x (A 
$(M+1) >"9") 

560 POKE D,V: LET C=C+V: LET D= 
D+1 

570 NEXT M 

580 IF C25A THEN PRINT "ERROR 
EN LINEA * .5,20: ST 


590 PRINT 
Ke 

600 NEXT N 
610 BEEP ۰ 


"5 NS 


do en ensamblador de la parte co- 
rrespondiente del programa. Quien 
lo desee, podrá ensamblar este trozo 
por su cuenta y ahorrarse teclear, en 
el programa principal, desde la línea 
500 hasta el final. En su lugar debe 
incluir una línea como la siguiente: 
500 LOAD ““CODE: RETURN, y 
salvar en cinta el código objeto tras 
el programa BASIC (este último 
con autoejecucion en la línea 20). 

Para quien le guste saber cómo 
funcionan las cosas se incluye ade- 
más unos breves comentarios del 
cometido de cada subrutina. Como 
visión general cabe decir que lo que 
hace este programa es crear un pe- 
queño programa BASIC que in- 
cluye el cargador TURBO (en códi- 
go máquina) y los datos del bloque 
que le sigue. Este programa se au- 
toejecuta, y ello no puede ser evita- 
do mediante MERGE al incluir una 
línea falsa con numeración superior 
a la «legal» que bloquea al sistema. 
Este cargador es salvado en la cinta 
con la rutina estándar de la ROM, 
seguido del bloque que abarca todas 
las partes de nuestro programa, gra- 
bado a velocidad rápida. 

El TURBO es muy rápido, por lo 
que puede dar algún problema de 


"SBESFFDDZAF 1FFCSOSFFC 


S9FFSAEDFFB7CCSEFFB7280AZAEFFF2 


El incremento de 
velocidad puede dar 
problemas si se utiliza 


en la carga un casssette 
diferente al que se 
utilizó en la grabación. 


mensaje “Start tape, then press any 
key” (precisamente en la línea que 
tenemos «reservada»), indicando 
que se haya dispuesto para grabar la 
versión TURBO del programa. De- 
beremos, pues, poner el cassette en 
condiciones de grabar y colocar la 
cinta donde queramos tener la ver- 
sión definitiva. Tras pulsar PLAY, 
REC y una tecla cualquiera, comen- 
zara la grabación. Una vez realizada 
se nos ofrece la oportunidad de rea- 
lizar nuevas copias; en caso de re- 
suesta negativa por nuestra parte, se 
regresa al BASIC. 


Programa en ensamblador 


Para los aficionados al lenguaje 
máquina se ofrece también el lista- 


930 DATA 


"9801 2000ESEDBOE 1243DF 
820F421405918EFCDCEFD3AEEFFB7C82 


de carga (si la hubera) y por último, 
ya desde la parte en máquina, nos 
pedirá el programa BASIC (también 
si lo hubiera). Habrá que conectar 
convenientemente el cassette, y 
pulsar PLAY al comienzo de cada 
una de las partes. 

En el caso de que se produzca al- 
gún error durante el proceso de car- 
ga, vale con pulsar CONTINUE y 
buscar de nuevo el bloque donde se 
produjo el error, a excepción de si 
ocurre durante la carga del BASIC, 
en cuyo caso habrá que hacer un 
RANDOMIZE USR 64765 en lugar 
del CONTINUE. Es posible, sin em- 
bargo, que en ese caso el mensaje de 
error que aparece en la parte baja es- 
tropee la pantalla de carga (si la hu- 
biera), en cuyo caso habria que co- 
menzar de nuevo cargando y ejecu- 
tando “TURBOPROTECTOR”. De 
lo que no hay que temer que estro- 
pee la pantalla de carga es del men- 
saje “PREPARADO PARA CAR- 
GAR PROG. BASIC” o “Pro- 
gram:...”, ya que esa línea de panta- 
lla es salvada a memoria antes de 
que aparezcan, y devuelta de ésta 
antes de hacer la grabación. 

Una vez cargadas todas las partes 
del programa aparecerá el conocido 


860 DATA 


1CCFB1140483E08012000DSED",4767 ZBABSCFDIGGAOOZ1O4FFZ2ZBZ5C", 5486 
870 DATA “BOD1143DF820F 41140591 940 DATA "ZEZEZEZ SCZAFBFF173 

BEFF3Z21FAQOZEO247106FEDSFEEEOAO6A B0601D9FF712 ODZAFS5FF7CESC 

42D20F 50535F 2Z4FEQ6ZF1OFE", 4456 E 59" 44058 
880 DATA "D3IFESEODO63710FED3FEO SCC3B016FDCBO1AEFBFDC 


Beeson Crh O EZABE EOE SOF 


E0B062326007AB3280BDD6E007CADO73 


5718186C18F579CB7810FE",3778_ 5179 
870 DATA 004062A10FED3 OSTOE 
OEFOSAFC602CB15 PE n D37 
FDEFE1 77A3C2 C1FF",41 OF ACDE7OS303779EE02" , 4867 
900 DATA "CF14801708204F5452412 970 DATA "4F260006B01808DD7500D 

54504941 3F: 4E29A0000 231BO6BZZEO1CDEZ 1E3EBDB8CB1 
[e 10051010000", 1750 506BO30F27CAD677AB320E170",3911 
910 DATA "S 0004901F9CO28BE3 980 DATA "B72000FD7EOE1F1F1FD3F 


DAA EFECO9CDCEFD112415AFCDOAOCCD4DFFC 
7ED7B3DSCCDBO162AF7FF2242" 


„5061 


“SCFD 260 Ye 1ع9‎ 580۵۵00 


"¿1745 

990 DATA 
00 
5959 3? 


7 


O293AEA2AB25C110 
¡EBF92AS35C1156001 


91105FFO1FBOOEDBOCD3EFFED" 


ODEDOC 


9۴0 


AFFO1 1800EDE81 


ENTCRI-1 (si no ha fallado nada, 
esto es en la dirección 65284), y, des- 
pués de copiar todo lo que le sigue a 
la parte alta de la memoria, salta alli. 

ENTCRI: Llama a TRBLD y ac- 
tualiza las variables del sistem: 
después salta a la dirección de ejecu- 
ción que tenga marcada o vuelve al 
BASIC (donde autoejecutará si le 
corresponde). 

NEWBSC: Borra el programa BA- 
SIC. Lo que hace es poner PROG, 
VARS y E_LINE a sus mínimos va- 
lores. 

EP_TCL: Espera a que se pulse 
una tecla, 

TRBLD: Se encarga de cargar el 
bloque en TURBO de forma similar 
a TRBSA. Caso de que se detecte al- 
gún error de carga se salta a 
ERROR. 

ERROR: Imprime “Tape Loading 
error” e inicializa el ordenador en 
cuanto se pulsa una tecla. 

ON_ERR: Es la subrutina a la 
que se salta cuando se produce un 
error del BASIC (siempre que se 
hubiera seleccionado esta opción en 
su momento). Pone el número de 
línea y sentencia correspondientes y 
salta a LIN. NW (en la ROM) para 
que la ejecución de BASIC pase a 
esa línea. 


Luis Gala 


ROM, es decir, a la entrada el par de 
registros DE debe contener la longi- 
tud del bloque a salvar, y el par IX la 
dirección de la base del bloque: 
cuando es llamada comienza la gra- 
bación sin imprimir ningún mensaje. 
saje. 

CAB_CB: Es la cabecera del car- 
gador BASIC. Incluye el nombre 
que le dimos, que fue pokeado des- 
de el BASIC a esta dirección. 

CARG. B: Es el cargador en sí. 
Incluye una línea cero, donde se 
ejecuta el código máquina relativo a 
PROG y a la que sigue una línea 
REM con el cargador TURBO y las 
variables; tras todo esto hay una 
línea 32525 que evita el MERGE. 

ENTCRG: Aquí comienza a eje- 
cutarse el código máquina cuando 
se autoejecuta el cargador BASIC. 
Cambia de sitio el stack de 


pr Tod C. Tomás 
11۷۵/2۷ SIRIE PARA LEVANTAR EL 
PARQUET! 


TNO! Lo QUE OCURRE ES QUE 
Soy MUY EFUSIVO EN Mis 


Lo PASAS ASÍ SOBRE 
CUALQUIER SUPERFICIE Y EL phuro 
SALE EN PANTALLA CON GRAIA Y 


carga cuando se utiliza para ello un 
cassette distinto al que se usó para 
grabarlo; esto puede ser soluciona- 
do alineando correctamente la ca- 
beza reproductora. 


Subrutinas 


TRBPRT: Es el bucle principal, 
desde el que se llama a las demás su- 
brutinas. 

LD. BSC: Carga el programa BA- 
SIC, actualiza las correspondientes 
variables del sistema e imprime el 
nombre del programa en la linea 10 
(la que esta almacenada en memo- 
ria). 

CLSL10: Borra la linea 10. En rea- 
lidad imprime 32 espacios en dicha 
linea. 

SA_L10: Copia, si es necesario, 
el contenido de la línea 10 (parte de 
la pantalla de presentación) a partir 
de BUFL10, incluídos los atributos. 

LD_L10: Lo contrario que la an- 
terior; recupera de memoria la línea 
10 

TRBSA: Junto con TRBLD es la 
más importante, ya que es la encar- 
gada de hacer la grabación TURBO 
de la zona de memoria que se le es- 
pecifique. Funciona de forma simi- 
lar a la rutina SA_BYTES de la 


| GUSANEZ 


MIRA ENANO, ME HE COMPRADO EL 
RATÓN, HERRAMIENTA IMPRESCiNDIBLE 
PARA DÍBUTAR CON EL ORDENADOR 


LA REVISTA QUE INTERESA TANTO AL AFICIONADO COMO AL PROFESIONAL 


Una publicación que 
informa con amenidad 
acerca de las novedades 
en el campo de las 
computadoras personales. 


ORDENADOR POPULAR, 
la revista para el 
aficionado a la 
informática. 

Ya está a la venta CON 


Comprela en su kiosco habitual o solicitela a: 


Bravo Murillo, 377 
Tel. 7339662. 
28020 - MADRID 


autopista que hay que cruzar 
para llegar alli no estan siempre 
en el mismo orden, por lo que 
no vale aqui eso de aprenderse 
de memorieta pantalla a 
pantalla para finalizar. 

Aunque las rutinas de 
movimiento usadas son las 
mismas que en Encounter, se ha 
sacado auin mas partido al 
original estilo grafico creado en 
esa ocasión, tanto en los 
personajes, objetos y paisajes 
de la aventura como en las 
pantallas de presentación, etc. 
Lo mismo hay que decir de la 
mayoría de esos detalles que 
hacen a un juego atractivo a 
primera vista y agradable de 
manejar. 

En definitiva, se trata de una 
honorable segunda parte que 
será bienvenida por los 
Highwaymaníacos de nuestro 
país (de todo hay en la viña del 
Señor). Desearíamos que a partir 
de ahora los señores de Vortex 
hagan un esfuerzo para no 
atascarse aquí y volver a 
dedicarse a la creación de 
nuevos tipos de juegos que 
rompan moldes como lo hizo 
Highway Encounter en su día. 


mucho el Highway Encounter. 
En esta segunda y (según reza 
la publicidad del juego) definitiva 
parte de la odisea las cosas han 
cambiado un tanto respecto a su 
predecesora. Como se ha 
señalado, en esta ocasión es un 
único Vortrón, el que debe 
empujar al Lasertrón hacia la 
base enemiga, y los tramos de 


ALIEN 
HIGHWAY 


ABC SOFT 
SPECTRUM 48 K 


De nuevo deberemos conducir 
un Lasertrón a lo largo de 
muchos tramos de una furutista 
autopista (valga lo rimbombante) 
que nos conducirá al cuartel 
general de Alien, el enemigo de 
la Galaxia. Sólo si maniobramos 
con mucha habilidad el Vortrón 
Unico de que disponemos, y 
logramos esquivar o destruir a 
los múltiples alienígenas que se 
cruzarán en nuestro camino, 
podremos dar por finalizada esta 
misión tan dificultosa como 
esencial para el mantenimiento 
de la paz en la Galaxia. 


Si te ha sonado muy a chino 
todo el párrafo anterior a éste, 
será sin duda por que nunca 
pasó por tus manos un juego 
fan famoso como fue no hace 


16 


ES TTN 


los sprites es buena, con 
movimiento de un pixel por 
interrupciones, lo que le da un 
aspecto de conjunto bastante 
pasable. En general, puede 
hablarse de un programa no 
excesivamente volcado en los 
detalles, que cumple sin resaltar 
en nada, y mas preocupado en 
lo estratėgico de la aventura que 
en hacer que las partes más 
duras sean entretenidas y 
llevaderas para el jugador. 


ETEA om 


pues con ello se fuerza al paso 
de un dia y la prueba se 
desarrolla durante un numero 
determinado de estos, 
transcurridos los cuales nada 
podra hacerse para triunfar. 

El estilo grafico usado, sin ser 
malo, no es demasiado 
elogiable, tanto por el disefio en 
si mismo como por la poca 
calidad de las secuencias de 
animacion, Aun asi la rutina 
utilizada para el movimiento de 


RIDDLER’S 
DEN 


PROEINSA 
SPECTRUM 48 K 


Del otro lado del Atlantico nos 
llega este juego, uno de tantos 
entre la oleada de arcade- 
aventuras que desde hace algún 
tiempo invade el mercado 
Spectrum. Sin buscar la 
sofisticación de los últimos 
grandes éxitos de esta clase, 
Riddler's Den destaca (si 
destaca en algo) por lo 
complicado de sus enigmas, que 
nos hace perder una vez tras 
otra la única vida que 
disfrutamos en cada partida. De 
hecho, es poca la acción que 
alcanza aún en sus momentos 
más álgidos, consistiendo todo 
el juego en un simple ir y venir 
en busca de objetos y un 
volverse tarumba averiguando 
las utilidades de los mismos. 

El protagonista (nada menos 
que el hombre elefante) debe 
andarse la laberíntica Cueva de 
los Enigmas en busca de ciertos 
tesoros, especialmente del 
Colmillo Dorado. Habrá para ello 
de superar muchas pruebas y 
tratar de conocer los objetos 
que pueden resultarle de alguna 
utilidad en su aventura. 

Para recuperarse del 
agotamiento que le producirá el 
acoso de ciertos enemigos, en 
especial los ogros y los duendes 
(otros acabarán con él 
fulminantemente), el protagonista 
puede optar por echar una 
cabezada. Para ello necesitará el 
objeto adecuado, evidentemente 
una almohada, dificil de 
reconocer por lo mal que ha 
sido dibujada. No es nada 
aconsejable el abusar de esto, 


propios sprites, a los que 
ademas les afea mucho el 
comentado parpadeo. 

Es, pues, un juego que puede 
resultar entretenido y 
ciertamente adictivo, aunque 
acaba cansando por su 
sencillez, que deberia ser 
contrarestrada por algún 
planteamiento que lo hiciera 
más atractivo. 


nada innovador. La rutina de 
impresión resulta algo molesta 
por los parpadeos en ciertas 
zonas de la pantalla, pero por lo 
demás los personajes se 
mueven con relativa rapidez y 
«resultan». Los gráficos son 
bastante buenos, con un estilo 
que se ve más resaltado en 
presentación o en algunas 
partes del laberinto que en los 


JIJE 


PUD-PUD 


ZAFIRO 
SPECTRUM 48 K 


El objetivo que debemos 
perseguir en este juego es 
ayudar al pequefio Pud-Pud a 
escapar del loco mundo donde 
ha entrado en una pesadilla y 
del que no sabe como salir. Para 
encontrar la salida secreta del 
satanico laberinto debe comerse 
uno por uno todos los puddings 
(diez en total) que se encuentran 
diseminados por los mas 
recónditos rincones del mapa. 


Pero esto no es fácil, sobre todo 
si tenemos en cuenta que la 
energía de las tres vidas de que 
dispone se gasta con cierta 
rapidez, sobre todo cuando 
entra en contacto con 
determinados enemigos. 


Debemos tener en cuenta 
también que Pud-Pud, a pesar 
de su extraña predilección por 
los puddings de todo tipo (por la 
que sus familiares y amigos le 
toman por loco), procede de una 
famosa estirpe de Pud-Pud 
188601۷0۲05, por lo que es en 
este tipo de seres donde 
encontrará las energías que 
palien el desgaste de tanta 
aventura, 


Pud-Pud es una criatura muy 
sensible, y en sus pesadillas 
suelen manifestarse sus 
paranoias en forma de la Sra. 
Pud-Pud, irrefrenable ser que 
constantemente suspira de amor 
por nuestro héroe. Deberemos 
tener cuidado, la Sra. Pud-Pud 
es muy absorvente y acabará 
con la poca energía con que 
suele contar su ídolo. 


El nivel técnico del juego es 
decente aunque sin aportar 


TODOSPECTRUM es una publi- 
cación mensual que lé ayudará a 
obtener el maximo partido a su 
SPECTRUM y al ZX 81. 


CONOZCA LAS VENTAJAS DE SUSCRIBIRSE A 


ADEMAS, te hacemos un 25 % DE DESCUENTO 
sobre el precio real de suscripción (12 números) 


VALOR REAL DE OFERTA ESPECIAL 
SUSCRIPCION DE SUSCRIPCION USTED AHORRA 
3600 PTAS. 2.700 PTAS. 900 ۰ 


APROVECHE AHORA esta oportunidad irrepetible para suscribirse a TO- 
DOSPECTRUM. Envie HOY MISMO la tarjeta adjunta a la revista, que no 
necesita sobre ni franqueo. Deposítela en el buzón más cercano. Inmediata- 
mente recibirá su primer ejemplar de TODOSPECTRUM más el REGALO. 


Bravo Murillo, 377 
28020 MADRID 
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de dar muy buena sensación de 
movimiento al vehiculo. Al 
principio es bastante dificil 
controlar el coche; sobre todo 
en los cruces, en los que es 
frecuente acabar empotrados en 
las esquinas o contra otro 
coche. En este sentido no 
resulta de mucha ayuda que el 
juego sea inglés, pues trae 
como resultado el que se circule 
por la izquierda para mayor 
despiste del personal. 

Cuando conseguimos 
acostumbrarnos a las 
reacciones de nuestro bólido, 
acaba resultando un juego muy 
atractivo, sobre todo por la 
cantidad de detalles que 
adornan las calles por donde se 
desarrolla la acción. Entre estos, 
hay que destacar la forma en 
que se mueven los abundantes 
coches que pueblan la ciudad, 
ya que lo hacen de forma 
bastante «inteligente», 
pudiéndose esperar de ellos 
reacciones totalmente lógicas. 
Otros detalles como los 
semáforos, etc., terminan de dar 
forma a un juego de los que 
pueden ser catalogados como 
buenos. 


JUEGOS 


a 
ALTY 0 
WEST VIEW 


surtido menu nos permite alterar 
el nivel de dificultad, redefinir 
teclas, ver las tablas de mejores 
puntuaciones y records de 
accidentes, salvar o cargar a/de 
cinta esas tablas, o comenzar el 
juego propiamente dicho. 
Cuando empezamos a jugar 
nos encontramos con una 
representacion tridimensional de 
las calles de bastante calidad, 
que, aunque empañada por 
unos graficos medianos, no deja 


SCORE 2 


TURBO 
ESPRIT 


DURELL 
SPECTRUM 48 K 


Ciertas ciudades del Reino 
Unido se ven amenazadas por 
una importante banda de 
delincuentes especializados en 
el trafico de drogas y armas; 
toda una mafia que no se 
detiene ante nada y tienen 
aterrorizados ya a los barrios 
bajos de la «city». Como agentes 
del orden, deberemos acabar 
con todo esto antes de que sea 
demasiado tarde. Dispondremos 
para ello de un potente Lotus 
que deberemos pasear por 
calles y avenidas esperando que 
un mensaje de la central nos 
indique la presencia de algun 
coche de esa organizacion por 
las cercanias. 

Al comenzar el juego se nos 
permite elegir entre varios el 
escenario donde se desarrollara 
la aventura, y, tras esto, un 


a 
PENALTY 9 
WELLINGTON MAP 


Lo mas resaltable, sin duda, 
es lo elevado que llega a ser su 
nivel de dificultad en algunas 
pantallas, en las que parece 
imposible imaginar siquiera la 
forma de pasar los interminables 
obstáculos que impiden el 
avance. Aconsejable para los 
grandes aventureros a los que 
no les gusta dejar sin batir a un 
juego de este tipo. 


suave pero no todo lo rápido 
que sería deseable en lo 
concerniente al protagonista, 
que anda, más o menos, tan 
poco como el viejo Sabreman. 
Los efectos especiales y 
detalles de presentación no son 
abundantes ni especialmente 
buenos, ni siquiera en lo relativo 
al sonido, que no es el fuerte de 
este juego. 


RASPUTIN 


FIREBIRD. 
SPECTRUM 48 K 


Ivan Kosmovichski, conocido por 
sus allegados como «el 
Cruzado» debe cumplir con la 
importante misión de destruir la 
Joya de los Siete Planetas —la 
fuente de energia del malvado 
espiritu de Rasputín, que está 
amenazando con volver a la vida 
para destruir el cosmos. Armado 
con un escudo y una espada 
magica, Ivan viajará a través de 
la oscuridad y el vacío de los 
terroríficos Siete Planetas donde 
habrá de luchar con los 
ciclopes, las cyberatas, las 
esferas de poder psiónico y 
algunas obras pérfidas criaturas. 


Con un estilo similar al que 
nos tiene acostumbrados 
Ultimate con su técnica 
Filmation, Rasputin se queda un 
poco por debajo en cuanto al 
nivel técnico de algunos 
detalles. Por ejemplo, el 
movimiento del protagonista es 
bastante peor que el de los 
mencionados «ultimates», y no 
ya por una inferior calidad de 
las rutinas empleadas, sino más 
bien por la secuencia de 
animación utilizada, que otorga 
al personaje el don del 
movimiento «ortopédico». 


Sin embargo, el juego presenta 
grandes virtudes en otros 
campos, e incluso en el propio 
terreno gráfico, que puede 
elogiarse por la agradable línea 
seguida en la mayor parte del 
juego (que, desgraciadamente, 
se ve alterada algunos puntos). 


El movimiento de los sprites es 


Si hemos jugado alguna vez 
con otros ordenadores, nos 
habremos quedado 
sorprendidos al oír sonidos 
y música. Este es uno de los 
apartados más pobres del 
Spectrum. Sin embargo, a 
partir de ahora, también 
podremos disfrutar de 
música a dos voces. 


1 sonido en el Spectrum se ge- 
nera mediante el altavoz inter- 
no, controlado por la ULA. Pa- 
ra producir un sonido durante un 
programa en código máquina, se ha- 
ce uso de la instrucción OUT, en al- 
guna de sus formas. El portque se ha 
de utilizar es el 254 (11111110b). 
Como muchos lectores ya sabrán, 
al utilizar este port se accede tanto al 
altavoz como al color del borde. 
Ambos se controlan mediante el 
contenido del registro A en el mo- 
mento de ejecutarse la instrucción 
OUT. Por ello, se hace una división 
por bits: El color del borde se indica 
con los bits 0 a 2 (los que valen 1, 2 y 
4), mientras que para el altavoz se 
utiliza el bit 4, cuyo valor es 16. El 
resto de los bits tienen asimismo un 
significado pero esto no nos intere- 
sa para el tema de este artículo. 


Produccién de sonido 


Ahora concentrémonos en el bit 
de sonido. Este sólo puede estar a Ø 
o a 1, dos estados distintos, que 
coinciden con los dos posibles de 
una onda cuadrada, que es el único 
tipo de onda que se puede generar. 
El cero corresponde al estado alto y 
el uno al estado bajo. El sonido se 
produce al pasar de un estado a otro, 
ya sea de Ø a 1 o de 1 a Ø. Con esto 
producimos un chasquido. Las dis- 
tintas notas musicales se producen 
mediante una serie de estos chas- 
quidos repetidos a intervalos de 
tiempo determinados. Cuanto me- 
nor sea este intervalo, mayor será el 
número de chasquidos producidos 
en un mismo tiempo y la frecuencia 
será mayor, o lo que es lo mismo, la 
nota será más aguda. Por tanto, para 
poder generar sonido puro, es nece- 
sario poder sincronizar el tiempo al 
máximo. 


T-Estados 


Probablemente, la mayoría de los 
lectores habrán oído hablar poco o 
nada de los T-estados, pues es un te- 
ma que no se trata demasiado en li- 
bros, sobre todo en libros de inicia- 
ción. Por ello, definiremos breve- 
mente que es un T-estado, ya que es 
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tiempo absoluto que tarda una ins- 
trucción en ejecutarse es necesario 
conocer tanto su duración en T-es- 
tados como la velocidad del reloj. 
En el Spectrum el reloj funciona a 
3°5 Mhz, o 3500000 hz. Esto quiere 
decir que emite 3500000 pulsos en 
un segundo, por lo que en el Spec- 
trum hay 3500000 T-estados en un 
segundo. Mediante una simple divi- 
sión comprobamos que un T-estado 
durará entonces  1/3500000= 


000000085714 segundos. Ahora ya 
estamos en condiciones de saber 
exactamente cuánto tarda un pro- 
grama en ejecutarse, con sólo dispo- 


normal de los que dan la hora. Es 
simplemente un dispositivo que 
emite una señal a intervalos regula- 
res de tiempo. Su función es sincro- 
nizar el microprocesador con el res- 
to de los componentes para que 
vayan todos a la misma velocidad. 
Sin el reloj, las distintas partes del 
ordenador no se entenderían. De to- 
do esto se deduce que la velocidad 
del microprocesador depende de la 
velocidad de un reloj. Es por esto 
que un T-estado no es una magni- 
tud absoluta de tiempo, si no que va- 
ría proporcionalmente con la veloc: 

dad del reloj. Por eso, para saber el 


un concepto imprescindible a la ho- 
ra de intentar producir sonidos. 
Un T-estado es la unidad de tiem- 
po del microprocesador. Todas las 
instrucciones del lenguaje máquina 
tardan un tiempo exacto en ser eje- 
cutadas. Este tiempo no se mide en 
segundos ni en minutos, sino en T- 
estados. Esta es una medida mucho 
más cómoda de usar, sobre todo por 
que un T-estado no se corresponde 
con una duración concreta de tiempo. 
Entre los muchos componentes que 
tiene un ordenador hay uno muy 
importante y que se encuentra en 
todos ellos: el reloj. No es un reloj 


LDA,7;BORDE BLANCO 

LD HL,523;REPETICIONES 
LOOP.OUT (25 4),A 

XOR 16;CAMBIA ESTADO 
DEL ALTAVOZ 


NSTRUCCIONES 
DE PAUSA 

DEL HL 

LD DDA 

LD AH 

ORL 

LDA,D 

JR ۳ 

RET 


La instrucción JR NZ,LOOP la to- 
maremos como de 12 T-estados. 
Ahora sumemos todos los T-esta- 
dos. Silo hemos hecho bien dará 52. 
Esto quiere decir que de la pausa de 
d6689 T-estados ya hemos gastado 
52, y ahora deberemos añadir en los 
puntos suspensivos algo que tarde 
en ejecutarse exactamente 6689— 
52=663'7 T-estados. 


LD BC,64513 
INC BC 
LOPA DINZ LOPA 


cada OUT con el mismo valor en el 
bit cuatro debe haber una pausa de 
1/261'67 segundos o 3500000/ 
26163 T-estados, 

Como entre esos dos OUTS del 
mismo calor habrá otro con el valor 
contrario, la pausa entre cada OUT 
será justo la mitad de la anterior 
3500000/523'26=6688'8354 T-esta- 
dos. 

Hay que tener en cuenta, sin em- 
bargo, que dentro de esa pausa hay 
que contar el tiempo que tarda en 
ejecutarse la propia instrucción 
OUT y algunas otras cosas. 

Por otra parte hemos dicho que 
queríamos que sonara durante un 


, segundo. Si cada vez que se realice 


la pausa, se tardan 6689 T-estados 
para que al final dure un segundo 
habrá que repetirlo 3500000/6689= 
5237297 veces. Nos tendremos que 
conformar con repetirlo 523 veces. 
Con todos estos datos podemos co- 
menzar a realizar el programa. Lo 
haremos en dos etapas. Primero no 
tendremos en cuenta el tiempo que 
tarda, y después colocaremos la 
pausa necesaria. 


ner de una tabla con las duraciones 
de todas las instrucciones. 


Generando Música 


Ya sabemos como se crea sonido 
mediante el cambio del bit 4 del re- 
gistro A en una instrucción OUT. 
Ahora vamos a ver un ejercicio prác- 
tico para generar una nota. Supon- 
gamos, por ejemplo, que queremos 
tocar el DO central durante un se- 
gundo. La frecuencia de la nota DO 
tal y como se ve en la figura 1 es de 
261°63 hz. Por tanto, debemos hacer 
cambios de 0 a 1 y de 1 a0261'63 ve- 
ces por segundo. Es decir, que entre 


En un principio se puede pensar 
en alternar varias veces las dos no- 
tas, tocando cada una durante muy 
poco tiempo. Con esto se consigue 
el efecto deseado, pero suena como 
si el ordenador estuviera «haciendo 
gargaras». Tras haber hecho varias 
pruebas con distintos métodos, 
creemos estar en lo cierto al afirmar 
que sólo hay un método para conse- 
guir dos notas simultáneas de una 
forma aceptable. En cierto modo es 
análogo al de la alternancia de no- 
tas, pero esta alternancia ha de ha- 
cerse a un nivel inferior, hay que 
mezclar las ondas de las dos notas. 
Es como si cogiéramos la gráfica de 
las ondas, la cortáramos en peque- 
ños pedacitos y creáramos una nue- 
va uniendo los fragmentos de las 
otras dos de forma alterna. Debe- 
mos distribuir el tiempo en dos mi- 
tades, una parte estará sonando una 
nota y la otra parte sonará la otra no- 
ta. 

Por ejemplo, si en un momento 
determinado la onda de una de las 
notas está baja y la de la otra alta, se 


o 
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El altavoz interno y el 
color del borde son 
controlados por el 


acceso al port 254 
mediante la instrucción 
OUT y el contenido del 
acumulador. 


Observe que es necesario inhabi- 
litar las interrupciones, pues estas 
harían que no pudiéramos controlar 
exactamente el tiempo que tarda el 
programa en ejecutarse. 


Dos notas 


Hasta aquí hemos visto como se 
toca una nota, pero ahora surge la 
pregunta ¿cómo se puede simular 
que suenan dos notas a la vez? 


DEC C 
JRNZ,LOPA 


Esto tarda en ejecutarse exacta- 
mente 6634 T-estados. Puede ser un 
buen ejercicio para el lector hacer 
los cálculos necesarios para com- 
probarlo. 

Ahora el programa quedaría así: 


DI 

LD A,7 

LD HL,523 

LOOP OUT (254),A 
XOR16;CAMBIA 
DEL ALTAVOZ 
LD BC,64513 

INC BC 
LOPA,DJNZ LOPA 
DEC C 
JRNZ,LOPA 

DEC HL 

LD D,A 

LD ,H 

ORL 

LDA,D 
JRNZ,LOOP 


ESTADO 


A UN PRECIO ESPECIAL 


OFERTA LIMITADA 
Y EXCLUSIVA PARA 
NUESTROS LECTORES 


Aproveche la oportunidad de mantener 
lomo nuevo su Spectrum Plus 
ton esta funda, y beneficiese 


de un 30% de descuento 
sobre su precio normal. 


ee TE IO SS ee rs 


t TO LEN at-4): 
THEN 


N PRINT 
NEA 


PRINT "PON LA CINTA FARA GR 


"EOFYEODE" CODE 


LET bfzat(LEN af 


220 READ ati 


Esto nos servira para calcular que 
la pausa ha de ser de unos 6689 T-es- 
tados. Para calcular entonces el va- 
lor que habría que colocar en H o en 
D para esta nota sería 6689/126=53. 
Asi se pueden calcular los valores de 
pausa de todas las notas. Al final del 
listado, en instrucciones DEFB se 
encuentra una tabla con todos estos 
valores para cuatro octavas comple- 
tas, siendo la central la segunda de 
ellas. 

Dijimos que el bucle se ¡ba a eje- 
cutar un mínimo de 256 veces. Co- 
mo cada vez tarda 63 T-estados, el 
tiempo mínimo será 256+63=16128 
T-estados o 0'004608 segundos. Así 
que para producir dos notas durante 
X segundos hay que meter en el re- 
gistro C el resultado de dividir X por 
0004608. 


niendo en el registro C la duración 
de la nota, y en los registros H y D 
los valores de las pausas de las dos 
notas. 

Observará que la subrutina tiene 
algunas instrucciones extrañas, co- 
mo LD, 1,A y LD SP,HL. Esas se uti- 
lizan para temporizar y conseguir 
que el bucle dure siempre exacta- 
mente el mismo tiempo. Natural- 
mente, no podemos cambiar alegre- 
mente el registro SP, pues podría te- 
ner efectos catastróficos, así que su 
valor original es restaurado al final 
de la rutina. 

El tiempo que pasa entre dos eje- 
cuciones de la instrucción OUT es 
de 63 T-estados, pero cada vez será 
para una nota distinta, así que el 
tiempo entre dos OUTS de la misma 
nota es de 126 T-estados. 


creará una «híbrida» que estará la 
mitad del tiempo baja y la mitad alta. 

Para todo esto debemos cambiar 
un poco el esquema del programa 
de una sola nota, 

En primer lugar, al ser dos notas 
cada una con su distinta duración de 
pausa entre OUTS, no se puede ha- 
cer esta pausa como se hizo en el 
programa anterior. Habrá que hacer 
un bucle que se'ejecute continua- 
mente pero en el que el XOR 16 no 
se ejecute nada más que cuando co- 
rresponda el cambio de estado a una 
determinada nota. Esto implica que 
debe haber bifurcaciones dentro del 
bucle, por lo que habremos de tener 
cuidado de que vaya por donde vaya 
la ejecución, siempre tarde el mis- 
mo tiempo en ejecutarse el bucle. 

Además como tenemos dos no- 
tas, necesitaremos dos valores dis- 
tintos para las pausas y otros dos pa- 
raf el estado de cada una de las on- 
das (alto o bajo). Para esto último 
utilizaremos los registros A y A’. 
Además del valor de las pausas ne- 
cesitaremos un contador para cada 
pausa. Para estos cuatro valores 
(dos de pausa y dos de contador) uti- 
lizaremos los registros DE y HL. 

Nos queda libre el registro BC pa- 
ra controlar la duración, que habrá 
de ser una misma para las dos notas. 
Una sola pasada elrededor del bucle 
es un tiempo demasiado corto, así 
que haremos que el número mini- 
mo de pasadas sea 256. Meteremos 
entonces en C un número que co- 
rresponda a la duración, y por cada 


unidad de este repetiremos el bucle 
256 veces ayudados porel registro B. 
Con todos estos datos ya podemos 
escribir una subrutina que toque 
dos notas. 

Podrá ver en el listado ensambla- 
dor de esta subrutina con el nombre 
NOTO. 


A esta subrutina se la llama te- 
i 


BASIC que carga el codigo en la me- 
moria. 


Componiendo música 


Para componer cómodamente 
para este programa, se incluye un 
sencillo programa BASIC que nos 
será fácil para introducir la música. 
Para su utilización habrá que hacer 
lo siguiente: 

— Teclear el programa de la figu- 
ra 3. 

— Grabarlo en una cinta con LI- 
NE 10. 

— Grabar a continuación el códi- 
go obtenido con el listado ensam- 
blador o el BASIC de la figura 2. 

— Borrar la memoria y cargarlo 
con LOAD” 

El programa nos presenta las si- 
guientes opciones: 

— Componer. Iremos introdu- 
ciendo las notas, primero de un ca- 
nal y luego de otro. Mientras no es- 
pecifiquemos nada, la nota será de 
la octava central y su duración será 1 


Para controlar con 
exactitud el tiempo que 
tarda en ejecutarse un 
programa en código 


máquina es 
imprescindible 
inhabilitar las 
interrupciones. 


comienza a repetirla desde el 
io. Puede pararse en cual- 
quier momento pulsando una tecla. 

Como la duración de las notas es 
la misma para todas, si queremos, 
por ejemplo que una dure el doble 
de lo normal bastará con ponerla 
dos veces. Esto quiere decir que si 
ponemos seguidas dos notas iguales 
no se oiran dos notas separadas sino 
una nota de duración doble. Si que- 
remos que suenen dos notas separa- 
das habrá que intercalar un peque- 
ño silencio. 

Para los que no tengan ensambla- 
dor se publica también un programa 


SUSCRIBASE 
POR TELEFONO 
x más fácil, 

ax más cómodo, 

* más rápido 


Con esto creo que quedará bas- 
tante claro como se producen dos 
notas simultáneas. 


Almacenamiento en memoria 


El listado en ensamblador, utili- 
zando la subrutina NOTO, toca una 
música que hayamos colocado en la 
memoria. Va leyendo la memoria 
de dos en dos posiciones, tomando 
dos valores que corresponden a las 
dos notas. Estos valores pueden va- 
riar de 0 a 49, siendo el 0 el DO in- 
mediatamente inferior al central y 
numerándose el resto al igual que 
con la instrucción BASIC «BEEP». 
"El 49 no es una nota, sino que es el 
indicativo del silencio. 

Con estos dos valores se busca en 
la tabla las duraciones de las pausas, 
y luego se carga el registro C con la 
duración de las notas. Variando este 
valor podemos tocar una música 
más deprisa o más despacio. 

El programa considera que la mú- 
sica ha terminado al encontrar un 


Telf. (91) 733 79 69 


7 dias por semana, 24 horas a su servicio 


SUSCRIBASE A 


en una matriz numérica, ininteligi- 
ble para el programa en código má- 
quina. Esta opción vuelca en la me- 
moria la composición dejándola lis- 
ta para ser interpretada. 

— Tocar: Interpreta la música 
tras habernos pedido la velocidad de 
ejecución. 

— Grabar la música: Nos permite 
grabar una música a medio compo- 
ner para continuar otro día. 

— Cargar la música: Cargar lo 
grabado con la opción anterior. 

— Grabar el código: Graba los da- 
tos de la memoria que utiliza el pro- 
grama en código máquina. Para uti- 


lizar esto en nuestros propios pro- 
gramas habremos de hacer los si- 
guiente: 

— Cargar el programa en código 
máquina. 

— Cargar los bytes grabados por 
esta opción en la dirección que que- 
ramos. 

— Para tocarla hacer: RANDO- 
MIZEd:POKE65409,V:RANDO- 
MIZE USR 65368, siendo d la direc- 
ción de la música y v la velocidad de 
ejecución. Hay que tener cuidado 
no utilizar gráficos definidos por el 
usuario, pues estropearíamos la ru- 
tina. 

PABLO ARIZA 


Sólo hay un método 
adecuado para 
conseguir dos notas 
simultáneas: mezclar 
sus ondas de forma 
alternada, dividiendo el 
tiempo que 
corresponde a cada una 
de ellas. 


vés de ellas con las teclas seis y siete. 
Cuando estemos sobre una deter- 
minada nota, tendremos las siguien- 


tes posibilidades: 

— 5 y 8: Varian la duración de la 
nota señalada por el cursor. 

— 4y9: Varían la nota. Para obte- 
ner el silencio se pulsará el 9 hasta 
que aparezca la palabra «SILEN- 
CIO» 

— Q: Elimina la nota señalada 
por el cursor. 

— A: Duplica la nota señalada 
por el cursor. 

En cualquier momento podemos 
pasar a las siguientes 20 notas pul- 
sando ENTER. 

— Continuar la composición. 

— Volcar la composición: El pro- 
grama BASIC almacena la música 


(1 es la duración de la nota más pe- 
queña que utilicemos en la compo- 
sición. Su duración real dependerá 
de la velocidad que le demos a la eje- 
cución. (Por ejemplo, si a la corchea 
la llamamos 1, la negra 2, la blanca 3, 
etc., pero no podremos utilizar se- 
micorcheas ni fusas ni semifusas, 
porque su duración sería 1,5 y sólo 
se pueden dar valores enteros. Por 
eso debemos tener cuidado de cuál 
es la duración a la que llamamos 2). 
Si queremos cambiar a otra octava, 
añadiremos antes de la nota y sin de- 
jar espacio entremedias el valor de 
la octava de 0 a 3 (I=octava central). 


Si queremos cambiar las duraciones 
añadiremos un número del 1 al 9 de- 
trás de la nota. Estos nuevos valores 
permanecerán vigentes hasta que 
los volvamos a cambiar. Para los si- 
lencios introducir «S». 

Cuando hayamos terminado con 
un canal pulsaremos ENTER. 

Al terminar los dos canales regre- 
saremos al menú, a no ser que haya- 
mos cometido algún error (la dura- 
ción de un canal es distinta de la del 
otro) en cuyo caso pasaremos direc- 
tamente a la opción de corregir. 

— Corregir: Visualiza las 20 pri- 
meras notas del canal que hayamos 
elegido. Podemos movernos a tra- 


USCS 


GRAFICOS INTERACTIVOS 


EN 


TIRE SED) MEN STONES 


fuera de ella y no desde dentro. Para 
evitar que el punto de vision esté 
dentro del objeto y para ajustar la fi- 
gura u objeto que dibujamos a la 
pantalla necesitamos lo que llama- 
mos el volumen de dibujo. Se trata 
de una especie de caja en donde es- 
pecificamos que vamos a dibujar. La 
definición de punto de visión y volu- 
men de dibujo aparecen en la panta- 
lla cuando se va a hacer uso de ellos. 

Como nos estamos moviendo en 
el espacio tridimensional trabajare- 
mos con tres ejes que llamaremos 
X, Y y Z. Colocándonos de frente a 
una pared de una habitación el eje X 
sería aquél que va desde la esquina 
inferior izquierda, donde está el ori- 
gen, ala esquina inferior derecha. El 
eje Y seria la altura de la habitación, 
desde nuestra esquina origen al te- 
cho. Y el eje Z es aquel que vendría 
desde el origen hacia nosotros. 

En las líneas 160 a 290 se definen 
las ventanas que se van a utilizar. 
Utilizaremos la ventana 0 para in- 
troducir datos y responder a pregun- 
tas; la ventana 1 la dedicaremos a 
dar instrucciones e información; y 
la ventana 2, la más grande, se desti- 
nará para dibujar. 

En la línea 300 se inicializan algu- 
nas variables que se utilizarán en 
una comparación inicial: n, el nú- 
mero de filas que tiene la matriz de 
puntos «original», y xv, yv y zv que 
definen el volumen de dibujo pues- 


básicos que hemos de manejar antes 
de empezar a describir el programa 
y su funcionamiento. Estamos tra- 
bajando en el espacio tridimensio- 
nal, que es el que existe en la reali- 
dad, y los objetos de este espacio 
queremos dibujarlos en el espacio 
bidimensional, que es el existe en la 
televisión o en una hoja de papel. La 
idea es dibujar un objeto real, en 
tres dimensiones, en sólo dos di- 
mensiones y que esta representa- 


ción refleje la realidad. Para ello he- 
mos de introducir el concepto de 
perspectiva. Para trabajar con la 
perspectiva hemos de saber desde 
qué punto estamos observando el 
objeto —no es lo mismo mirar a un 
coche de frente que desde abajo— y 
esto introduce el concepto de punto 
de visión. 

Para tener una perspectiva ade- 
cuada desde el punto de visión del 
objeto que estamos dibujando es 
necesario que él punto esté fuera 
del objeto. Nosotros podemos ver 
nuestra casa en perspectiva desde 


۵ se ha preguntado nun- 
¿N ca cómo se producen 

esas imágenes que a me- 
nudo vemos en televisión donde las 
figuras rotan, vienen y van? Como, 
por ejemplo, en las imágenes de 
apertura diaria de televisión donde 
cuatro bloques forman un recinto 
en el que se asienta una esfera for- 
mando el logotipo de TVE. Seguro 
que siempre pensó que se hacían 
por ordenador pero nunca llegó a 
imaginar cómo podían seguir una 
trayectoria tan perfecta y un movi- 
miento tan realista. En este artículo 
comentaremos la base de las técni- 
cas que permiten producir tales 
efectos. 

El programa que aquí presenta- 
mos es capaz de realizar gráficos in- 
teractivos en tres dimensiones, ver- 
los en perspectiva desde diferentes 
puntos de visión y cambiarlos de ta- 
maño. A diferencia de otros progra- 
mas que permiten la construcción 
de figuras interactivamente, este es 
capaz de dibujar la figura en pers- 
pectiva, reflejando la realidad, ya 
que traza la figura a través de las 
coordenadas que se le proporcio- 
nan. Es decir, usted podría dibujar 
su coche y verlo en perspectiva des- 
de el punto que desee simplemente 
tomando medidas de su automóvil y 
proporcionando las coordenadas al 
programa. 

Existen una serie de conceptos 


az 


REMark = 

REMark GRAFICOS INTERACTIVOS 
REMark EN TRES DIME 

REMark RICARDO GARCIA 


DIM tr (3,2) ¿punto (2) „vol 3d (7,2) ,voli +1) original (500 
REMark Definicion de ventanas 

MODE 4 

WINDOWHO, 155,36, 24,220 


\ 


02,36, 186,220 ۱ 


۳۵۴۳۳۱ , 2 
BORDERI , 2,4 
WINDOWS 462 
PAPERH2, O 
BORDER 2,4 
ELSKZ 
CLS#1 
Ory zv=0 
Menu inicial 

FRINT#1,“ PULSA LA TECLA APROPIADA PARA CADA OPCION" 
PRINTHI," F. Lectura de datos desde fichero" 

INTHIL," T. Introduccion de datos por teclado" 
sles=INKEY$ CHO, —1 
slc=CODE (ele 
SELect ON sle 
REMark Lectura de datos desde fichero (F 
ON sle=76,102 
CLS#O 
INFUT#O," Nombre del ficheros “¿nombres 
archivos="ñidw1 ombres" Sel" 
OFEN_INH3, archivos 
INPUTAES,n 
INPUTHE ya 
INPUTHS ,b 
INPUTHS, C 
INPUT#S, 
INPUTRS 
INPUTH: 
FOR 120 
FOR j=0 
INFUTHS original (i,j) 
END FUR د‎ 

D FOR i 
CLOSERS 
matriz transtormacion 
ajustes pantalla 
redibuja 
REMark Introduccion de datos por teclado 
ON sle=64,116 
punto, vision 
matriz transformacion 
volumen 
ajustes pantalla 
REMark Ninguna de las an 
ON elesREMAINDER 
PRINTHO,"” Opcion no 
GO TO 3 
END SELect 
menu principal 
CLSHO 
FRINT#O," Ful 
sl1érINKEYS (RO, ~1 


escala y traslación que harán que ca- 
da punto que se transforme de la 
matriz «original» puedan ser repre- 
sentados en la pantalla. 

Una vez hecho el trabajo dificil, al 
procedimiento redibuja (líneas 9000 
a 9110) no le queda sino dibujar las 
figuras con los datos de la matriz 
«original». La primera columna de 
esta matriz está compuesta de unos 
y ceros. Un uno significa dibujar y 
un cero mover. Las otras tres co- 
lumnas definen el punto en el espa- 
cio tridimensional. El procedimien- 
to redibuja transforma cada punto a 
dibujar a través del procedimiento 
transforma y después dibuja cada 
punto o se mueve a un punto, de- 
pendiendo del valor de la primera 
columna, aplicando los factores de 
escala y traslación para el ajuste en 
pantalla. 

Una vez que tenemos nuestra fi- 
gura en la pantalla podemos simple- 
mente disfrutar de ella o realizar 
cualquiera de las operaciones que se 
nos ofrecen en el menú principal 
(líneas 4000 a 4080). Pero antes de 
examinar estas opciones veamos 
qué pasaría si al principio decidimos 
introducir datos desde el teclado en 
lugar de leerlos de un fichero. 

En ese caso llegaríamos a la línea 


(líneas 6000 a 6370) tiene como mi- 
sión última el cálculo de un factor 
de escala (escala) y dos factores de 
traslación (muevex y muevey) que 
se encarga de ajustar a las coordena- 
das de la pantalla los puntos en el es- 
pacio bidimensional, dados en el 
vector «punto». Para hacer esto se 
carga la matriz de puntos que deli- 
mita el volumen (vol3d) y se pasa al 
espacio bidimensional (almacenán- 


Una figura puede 
dibujarse a través de 
los datos almacenados 
en un fichero o 
introduciendo 
directamente datos 
desde el teclado. 


dose en vol2d) a través de la trans- 
formación que realiza el procedi- 
miento transforma. Este procedi- 
miento (líneas 7000 a 7070) aplica la 
matriz tra cada punto y después rea- 
liza la transformación de la perspec- 
tiva con una simple regla de tres. 
Una vez conocido el volumen trans- 
formado a dos dimensiones (alma- 
cenado en vol2d) no queda sino eje- 
cutar algunas ecuaciones de primer 
grado para calcular los factores de 


to que estas coordenadas son las de 
un punto oblicuamente opuesto al 
origen 

Una figura puede dibujarse a tra- 
vés de los datos almacenados en un 
fichero o introduciendo datos inte- 
ractivamente. La opción se realiza 
en las líneas 310 a 350. Si se ha elegi- 
do leer los datos desde un fichero, se 
cargan en las líneas 380 a 560. Ob- 
serve que los ficheros tienen la ex- 
tensión 3d. a, b y c son las coordena- 
das que definen el punto de visión. 
Una vez cargados los datos del fi- 
chero se ejecutan tres procedimien- 
tos: matriz-transformación, ajustes- 
pantalle y redibuja 

El procedimiento matriz-trans- 
formación (líneas 5000 a 5200) reali- 
za el grueso de cálculo del progra- 
ma. Explicar aquí el porqué de este 
algoritmo nos ocuparía más que la 
propia revista, con lo que obviare- 
mos la descripción detallada del 
mismo, En síntesis lo que hace este 
algoritmo es construir una matriz de 
transformación (trt), a la que se lle- 
ga a través de operaciones trigono- 
métricas y cálculo de rotaciones y 
traslaciones, que define la situación 
relativa entre el punto de visión y la 
figura. 

El procedimiento ajustes-pantalla 
ou 


Como lo que estamos haciendo 
es dibujar en tres dimensiones inte- 
ractivamente existe la posibilidad 
de que nos equivoquemos y por eso 
existe la opción de anular el último 
Ipunto (líneas 1020 a 1090). Para ello 
lo único que se hace es reducir n en 
uno y redibujar si se ha trazado una 
línea al último punto. 

Las últimas opciones son las de 
grabar los datos (líneas 1100 a 1290) 
y de volver a comenzar. Observe 
que cuando decidimos grabar esta- 
mos grabando los datos (esto es, los 
puntos en el espacio tridimensional 
contenidos en la matriz «original» 
así como el punto de visión y el vo- 
lumen de dibujo) y no la figura. 

Por último, sólo una puntualiza- 
ción, El programa ajusta el volumen 
de dibujo a la pantalla. Da igual lo 
lejos que esté el punto de visión de 
la figura, seguirá siendo igual de 
grande. El punto de visión sirve co- 
mo posición relativa para ver dife- 
rentes perspectivas del objeto pero 
no cambiará su tamaño en la panta- 
lla. Para hacerlo habrá que cambiar 
el volumen de dibujo, Un volumen 
de dibujo más pequeño hará que la 
figura aparezca más grande en la 
pantalla y viceversa. 

Ricardo García y García 


als 


cla Intro accedemos a la parte de in- 
troducción de datos (líneas 790 a 
880). Nada más introducir las coor- 
denadas del punto se transforman 
(con el procedimiento transforma) y 
se dibujan con el procedimiento di- 
buja (líneas 8000 a 8090). Es uno de 
los procedimientos más sencillos. 
Aplicando los factores de escala y 
traslación para los ajustes de la pan- 
talla no hace sino dibujar o mover 


El punto de visión y el 
volumen de dibujo se 
pueden alterar para 
obtener diferentes 
vistas del objeto y 
modificar su tamaño. 


de acuerdo al primer número del 
vector, 

` Se puede cambiar el punto de vi- 
sión, para tener diferentes visiones 
de la figura, y el volumen de dibujo 
para ver la figura más o menos gran- 
de o extenderla. Para ambas opera- 
ciones la mecánica es similar: se in- 
troducen los nuevos datos, se hacen 
las transformaciones, se calculan 
los ajustes y se redibuja (líneas 890 a 
1000). 


620 y se ejecutaría el procedimiento 
punto-visión (líneas 2000 a 2150). 
Este procedimiento nos define lo 
que es el punto de visión y pide que 
lo introduzcamos. Cuando lo hace- 
mos se comprueba que no está den- 
tro del volumen de dibujo y, si asi es, 
da un aviso y pide que introduzca- 
mos las coordenadas de nuevo. Si 
hubiéramos elegido la opción de in- 
troducir datos por teclado la primera 
vez ahora no tendríamos las coor- 
denadas del volumen de dibujo para 
poder comparar, de aquí que se ini- 
cialicen en la línea 0 

Después de tener el punto de vi- 
sión se ejecutaría el procedimiento 
matriz-transformación para ejecu- 
tarse después el procedimiento vo- 
lumen (líneas 3000 a 3150). En este 
procedimiento se define el volumen 
o caja de dibujo, se piden las coorde- 
nadas y se comprueba que no con- 
tiene el punto de visión. Una vez 
que el programa conoce el volumen 
de dibujo ejecuta el procedimiento 
ajustes-pantalla. 

Llegamos entonces a la linea 710 
donde se ejecuta el procedimiento 
menu principal (lineas 4000 a 4070) 
donde lo tinico que se hace es mos- 
trar las distintas opciones en la ven- 
tana informativa. Si pulsamos la te- 


750 sle=CODE (s1 c4? 
760 SELact ON sle 
70 REMark introducir datos (tecla intra 
780 ON she 
790 CLSHO 
B00 IF m=O THEN original (n.0)=0:6D 1 
G10 PRINTHO," Mover (0)" 
B20 INPUTHO," o dibujar (1): "seria 
830 IF original (n.0).29 AND original 
840 INFUTRO." coordenada = = "yorigi 
850 INFUT coordenada y = “torigina 
860. INPUTHOL" evardenac = “yorigi 
870 transforma ûrigihal in, D) originai ( 
880 dibuja 
890 REMark Cambiar punto de vision ۲ 
900 ON sle=112,80 
910 punto on 
920 matr nstormacion 
930 ajust 
940 redibu 
950 menu princi 
960 REMark Fi Jar nuevo volumen ۷ 
970 e=118,86 
980 volume! 
990 ajustes pantalla 

redibuja 

menu principal. 

REMark Anular ultimo pur 

O ON sle=65, 

1040 IF original (n-1,0)=0 THEN 
1080 nen-1 
1060 
1070 n=n=1 
1080 redibuja 
1090 END ۳ 
1100 REMark Grabar dat 
1110 ON sle=71,103 


Nombre de “¿nombres 

archi vofis'mavi, "Snombrest" 

DELETE arch: vot 
OFEN_NEWHS ivot 
PRINTHS «nm 

RINTHS, a 

RINT HS L 
PRINTS, E 
PRINT# 
Pi 


PRINT#S original (1,3) 

END FOR j 

END FOR i 

CLOSERS 

REMark Comenzar de nueve (C) 

ON slc=67,99 

60 TO 280 

REMark Ninguna de las anteriores 
ON slc=REMAINDER 

EL5#0 

FERINTHO Opcion no valida" 
GO TO 7 

END SELect 

60 TO 720 

Remark = Toma de datos del punto de vision ==== 


DEFine PROCedure punto vision 
ES 
۳ n DI INICION DE PUNTO DE VISION" 
FRINTH1," Aquel punto en el espacio tridimensional desde" 
۳ ," el que se va a mrar la figura dibujada" 
LSO 
coordenada 
INPUTHO," coordenada 
INPUT#O," coordenada 
IF ab=0 AND کج‎ AND syv =O AND c<=zv THEN 
CLS#O 
INT#HO," EF Punto de vision dentro de caja de dibujo 
60 TO 2070 


Toma de dates para delimitar el volumen de dibuje = 
OCedure volumen 


INT#1," DEFINICION DE VOLUMEN DE DIBUJO: ato en el " 
PRINTHL," espacio tridimensional, oblicuamente opuesto al" 
FRINTH1," rigen, q define una ja en la que dibujar" 
ELO 
INPUTHO," rdanada 
INFUTHO, " 

INPUTHO, " 

IF a»=6 AND vA a yv AND aj=O AND cómev THEN 
GL. SHO 

PRINT#O," dentro de caja de dibujo” 
Go TO 

END IF 

END DE 

REMark finicion del menu principa 

DEFine a menu principal 

CLSH 

PRINTHL," punto vision" 
PRINTI," a nueva volumen" 
PRINTHL 4" = ultimo punt 
LINEAL, 27, 0 

LINE#L, 


ulo de la matriz de transformación ==== 
DEF ine PROPedure o transformacion 
LOGal cqys9,cb,sb,yvuelca 
50۴۲عو‎ (c^2+b ^2) (SORT (a 2+0" 2te" 2) 
sy=a/SORT (a 2+b^ 2+72 
cbsc/SURT (c7 2+b 2) 
sb=-b/SORT (c”2+b"2) 
0)) +(e =O) 


=eb#sg#vuel ca‏ (زا 
tr(1,1)=cb*vuelca‏ 
tr(1,2)=sb*cg‏ 
tr (2,0)=-cb*sg*vuelca‏ 
tr(2,1)=sb*vuelca‏ 
و تست )2,2( tr‏ 
tr (3,0)=((-a)*cg=sg* (brsb=c*cb))*vuelca‏ 
tr (3,1)=- (b*cb+c#sb)*vuelca‏ 
tr (3,2) =a%sg-cg* (b¥sb—-c¥cb)‏ 
END DEFine‏ 
REMark Parametros para ajustar el dibujo a la pantalla ===‏ 
DEFine PROCedure ajustes pantalla‏ 
REMark carga la matriz de nuhtos que delimita el volumen‏ 
RESTORE‏ 
FOR 1=0 TO 7‏ 


2040 
2050 
2060 

170 
2080 

ور 
2100 
2110 
2120 
2130 
2140 


2150 


5040 
5050 
5060 
5070 


S100 
3110 
51 
Sas 
5140 
Si 
S160 
5170 
5180 
5190 
5200 
4000 
6010 
6020 


JD OSEA RV» 


FOR i=0 TO 7 

transfor نم‎ 3d 40) 
(1.0) unto (0) 
di, 1) punto (19 


Maxime y minimo del volumen pray 
oL2d(0,0) 
o12 (0,0) 
ol 2۵ 0,1) 
svol 2d (0, 1) 
TO 7 
IF vol2d(i,0) >ma: max 
IF ۷۵۱2۵ (i ,0) min min 
IF ۷۵1 20 (i,t) maxy THEN max 12d 4441) 
IF vol2d(i,l)<miay THEN miny=vol2d(i,1) 
NEXT i 
REMark determinación del factor de escala y de traslacion 
IF 164/100%= (maxx=minx) /(maxy=miny) THEN 
escala=164/ (maxi=min 
muevex=="minxkescala 
~miny) *escal a) /2=minyxe 


100/ (maxy=miny) 
{164~ (maxx~minx) escala) /2-miny*escala 
muevey==minyrtescala 
END IF 
END DEFine 
RENark ==== Realiza la transformacion y proyeccion 
DEFine PROCedure transforma (%,y 
punto to tr (0,0) ساب‎ (1,0) +2¥tr (2,0) +tr (3,0) 
punto (1)sx*tr (0,1) +yetr (Ly 1) +z#tr (2,1) +tr (3,1) 
punto ) «tr (0,2) tyetr (1,2) ¢2¥tr (2,2) +tr (3,2 
punto (0) spunto (0) /punto(2) 
punto (1) =punto(1) /punto 
END DEFine 
REMark Traza lineas segun valores de matriz original 
DEFine PROCedure dibuja 
IF original (n,0)=0 THEN 
LINE42, pun to (O) *+escal a+muevex, punto (1) *escal a+muevey 
n=n+1 
ELSE 
LINE#2 TO punto(0)*escalatmuevex punto (1) *escalatmuevey 


Redibuja la matriz original completa 
Cedure redibuja 


150 TO net 
transforma original (i „1! original G.E original (1,3) 
IF original 0 THEN 
LINE#2,punto (0) rescala+muevex punto (1) *egcal atmuevey 
ELSE 
LINE#2 TO ounto(O)+ese بو یه‎ punto (1) +escala+mievey 
END IF 
NEXT i 
END ,D 


6070 
6080 
6090 
4100 


702 

7030 
7040 
7050 
7060 
7070 
8000 
8010 
BO20 
8030 
B040 
8050 
8060 
8070 
BOBO 
8090 
9000 
9010 


9080 
9090 
9100 
9110 


Continuamos — eseudri- 

ñando en la memoria del 

Spectrum para ver cómo 

marchan las cosas cuando 

el operativo está funcionan- 
do. Descubrimos una zona 
denominada «Información 
para canales» que desde el 
código máquina puede resul- 
tarnos muy útil para ciertos 
propósitos. 


mos PRINT # 1 imprimiremos en la 
parte inferior de la pantalla, con 
PRINT #2 lo haremos en la parte 
principal, mientras que con PRINT 
+ 3 el texto irá a impresora (si estu- 
viera conectada la ZX-Printer). Si 
tuviéramos conectado algún micro- 
drive podríamos abrir un canal, por 
ejemplo el 4 para imprimir con 
PRINT +4 directamente en un fi- 
chero del cartucho, mientras que si 
somos lo suficientemente hábiles, 
podremos abrir un canal propio pa- 
ra, por ejemplo, poder imprimir 
dentro de una determinada variable 
alfanumérica, como veremos des- 
pués. 

Cuando se inicializa el Spectrum, 
cuatro canales quedan especificados 
en la zona de información para ca- 
nales. El canal «K» se usa, como sa- 
lida, para escribir en la parte inferior 
de la pantalla, y, como entrada, para 
explorar el teclado, El canal «S» se 
usa como salida para escribir en la 
parte principal de la pantalla, mien- 
tras que dará error si intentamos 
usarlo como entrada. El canal «P» se 
usa para imprimir con la ZX-Printer 
(o compatible), no se usa como en- 
trada. El canal «R» no puede ser 


Spectrum de una forma potente y 
versátil, gracias al uso de los llama- 
dos canales y corrientes. Un canal es 
aquella parte del sistema del orde- 
nador a la que se puede enviar 
و‎ recibir datos, mientras que co- 
rriente (stream) es la vía que usamos 
para transportaresos datos. En reali- 
dad, en castellano se utiliza muy a 
menudo la palabra canal para refe- 


rirse a ambas cosas, de forma que 
los puristas tomen un lápiz y prepá- 
rense para corregir cada vez que les 
apetezca. 

Desde el BASIC hay varios co- 
mandos en los que podemos especi- 
ficar el canal a utilizar, con PRINT, 
LIST y CAT para salidas, e INKEY$ 
e INPUT para entradas (en verdad 
este último también puede actuar 
como salida). De esta forma si hace- 


Si observamos el mapa de memo- 
ria que ofrecimos en el pasado capí- 
tulo veremos que, tras las variables 
del sistema y a partir de la dirección 
23734, existe una zona denominada 
«Mapas de Microdrive». Es una zo- 
na que sólo aparecerá si estamos 
usando un microdrive con el Inter- 
face 1, por lo que la dejaremos de la- 
do para meternos a fondo en el estu- 
dio de estos periféricos en otra oca- 
sión. 

Si no tenemos conectado el Inter- 
face 1 es la siguiente zona, «Infor- 
mación para canales», la que ocupa 
estos bytes. Esta zona, poco conoci- 
da por lo general, puede resultarnos 
de gran utilidad a la hora de abrir ca- 
nales propios para el control de 
cualquier cosa que «pinchemos» al 
Spectrum o para hacer un uso de los 
canales existentes distinto del habi- 
tual. aunque quizá sea necesario ex- 
plicar antes lo que entendemos por 
canal. 


Canales y corrientes 


El tratamiento de los dispositivos 
de E/S (incluida la pantalla) se con- 
sigue en el sistema operativo del 


APRENDIENDO. 


brutina que podría constar sóla- 
mente de un RST 8 seguido del có- 
digo de error que interese. 

Lo explicado sólo es totalmente 
válido cuando no tenemos en Inter- 
face 1 conectado, pues este utiliza 
nuevos canales para manejar los mi- 
crodrives que no responden al mis- 
mo formato. 

Las rutinas de salida deben admi- 
tir, al ser llamadas, que sea en el 
acumulador donde se les pase el có- 
digo al que deben dar salida. Lo hay 
que hacer con ese código depende 
de la imaginación del programador 


ción para canales que marcarán el 
uso que vaya a hacerse de ellos. Los 
dos primeros bytes de cada uno for- 
man la dirección donde se encuen- 
tra la rutina que debe ser usada pa- 
ra las operaciones de salida. Los dos 
bytes siguientes son la dirección de 
la rutina de entrada, mientras que el 
quinto byte es el código de la letra 
usada como identificador de canal. 
Si un canal no admite ser usado, por 
ejemplo, como salida, deberá apun- 
tar en los dos bytes correspondientes 
a la salida hacia una rutina de error 
específica, o bien a una simple su- 


usado desdel el BASIC, pero desde 
código máquina podemos utilizarlo 
para escribir en el área de trabajo 
(en el mapa, «Entrada de datos»). 
Las corrientes que se asignan a estos 
canales son: 0 y 1 para el canal «K», 
2 para el «S», 3 para el «P», y, desde 
C/M, —3 (FDh) para el «K», —2 
(FEh) para el «S» y —1 (FFh) para el 
«R». 


Formatos en memoria 


Para cada canal, podemos encon- 
trar 5 bytes en la zona de informa- 


10 ORG 60000 390 RST 8 
20 400 DEFB 1 
30 OP ka 410 LOC AL 
40 LD HL, (PROG) 420 EP" ۰ 
50 DEC HL 430 JR Z, ALZ% 
60 PUSH HL 440 CALL NEXT_O 
70 LD BC,5 450 EX DE,HL 
80 CALL MAKE_R 460 JR ۵8 
90 POP DE 470 
100 LD HL,TBLCHN 480 A_zs su 
490 L 
110 LD 5 
500 LD E,tHL) 
120 LDIR p 
130 LD HL,STRMS+14 510 TO E 
140 LD ان مت ده(‎ Uds 
150 RET : 
neo 540 INC DE 
120 TBLCHN So n RE 
180 DEFW SALIDA Se ۱ - EDE 
190 DEFW ERROR 2 وت‎ 
200 DEFE ۰ 580 PUSH HL 
590 POP BC 
210 
600 POP 
220 ¿"Invalid 1/0 device" O ROR ve 
230 
620 FINUR: 
240 ERROR 630 7 LD (HL),D 
250 RST 8 1 
640 DEC HL 
se DEFÈ 18 650 LD (HL),E 
660 g 
280 SALIDA EPEAT 
670 INC BC 
£70 i Es 680 LD (BC),A 
son , 690 RET 
310 LD HL, (VARS) 700 
320 LOC_28 710 
330 LD A, (HL) 720 PROG EQU 23635 
340 CP 128 730 MAKE_R EQU 5 
350 JR NZ,LOC_A1 740 STRMS EQU 23568 
360 750 VARS EQU 23627 
370 ¡"Variable not found" 760 NEXT_O EQU ۵ 
380 770 ONE_SP EQU 2 


apunten aellos. Lo primero que hay 
que hacer es abrir un canal en la zo- 
na de memoria correspondiente, es 
decir, al final de CHANS (otra op- 
ción menos elegante es situarlo en 
el buffer de la impresora), pero como 
aquí es donde normalmente se en- 
cuentra almacenado el programa 
BASIC, primeramente habrá que 
abrir un hueco de 5 bytes en esa di- 
rección de forma que no alteremos 
dicho programa. Esto es bastante 
sencillo si utilizamos la rutina de la 
ROM llamada MAKE ROOM, a la 
que hay que pasarle en BC el núme- 
ro de espacios que queramos nece- 
sitamos, y en HL la dirección donde 
queremos insertar algo. 

En el listado adjunto os ofrece- 
mos una útil rutina cuyo cometido 
va a ser abrir un canal llamado «Z» 
que sólo funcione como dispositivo 
de salida e imprima cualquier cosa 
en la variable x$; después dirigire- 
mos hacia allí a la corriente 4 (o al 
«canal» 4), de modo que podamos, 
por ejemplo, ejecutar PRINT 4; 
2x2 y que un precioso «4» se añada 
al final del contenido de z$. 

Al comienzo se hace lo que co- 
mentamos dos párrafos más arriba 
par abrir un canal «Z» en la zona de 
información para canales. Esto lo 
efectúan las líneas 40-200, abriendo 
el hueco (líneas 40-80) y copiando 
los cinco bytes especificados en 
TBLCHN al final de esta zona 
(líneas 90-150). La  subrutina 
ERROR es la de entrada, que hace 
que si, por ejemplo, intentamos eje- 
cutar un INKEY$ 4 aparezca el 
error correspondiente, 

En la rutina de salida localizamos 
primero a Z$ en el área de las varia- 
bles (LOC. Z$), dando, si esta varia- 
ble no existe o si está dimensionada, 
el error «Variable not found», o pa- 
sando a A_Z$ cuando está localiza- 
da. Allí se hace hueco para un nue- 
vo elemento, se ajustan los punteros 
y se introduce el valor del acumula- 
dor al final de la cadena. El formato 


y de los fines que persiga. Por ejem- 
plo, la rutina de salida usada para el 
canal «S» es nuestra conocida de la 
dirección 0010h (esa que usamos 
con RST 16), a la que hay que pasar- 
le en A el código del carácter a escri- 
bir. Lo mismo hay que decir de las 
rutinas de entrada, que, al ser llama- 
das devuelven en el acumulador el 
valor conseguido del dispositivo de 
entrada (o cualquier cosa que use- 
mos como tal). 

Pero no sólo basta tener especifi- 
cados en RAM los diferentes cana- 
les posibles, sino que tiene que ha- 
ber un sitio en el que aparezca a qué 
canal corresponde cada una de las 
19 corrientes (entre la -3 y la 15, in- 
cluidas las tres «fantasmas» ya co- 
mentadas y no accesibles desde el 
BASIC) que pueden llegar a coexis- 
tir en un Spectrum. Este lugar está 
situado entre las variables del siste- 
ma que vimos el pasado capítulo, 
concretamente a partir de la posi- 
ción de memoria 23568, denomina- 
da STRMS. Allí podremos encon- 
trar, con dos bytes para cada corrien- 
te, el desplazamiento relativo a 
(CHANS)-1 de cada una de las 19 
corrientes empezando por la —3. 

Por ejemplo, para el canal —3, po- 
demos buscar en las direcciones 
23568-9, para el O a partir de la 
23568+6, o sea, en 23574-5; para la 1 
en 23576-7, y así con todas, En el dos 
encontraremos, si no hemos enre- 
dado mucho aún, un 6, que sumado 
a(CHANS)-2 nos dará la dirección 
de comienzo de los 5 bytes corres- 
pondientes al canal «S» en memo- 
ria. Si el número que conseguimos 
en STRMS es un cero quiere decir 
que esa corriente no ha sido abierta 
(o que ha sido cerrada). 


Abriendo corrientes propias 


Sabiendo todo esto, no resulta 
difícil abrir canales para que apun- 
ten a las rutinas que nos interesen, y 
nuestras propias corrientes para que 


و 


nr „d. LE OFRECE LOS MEJORES LIBROS 
PARA SU ORDENADOR 


LOS MEJORES 
۳ P.V.P. 800 PTAS. 
(VA INCLUIDO) 
Con utilidades, juegos 
exploxivos y gráficos 
dinámicos que lleva al BASIC 
hasta el mejor 
aprovechamiento de sus 
posibilidades 
(200 páginas, tamaño 
15,5 x 21,5). 


P.V.P. 150 PTAS. 
(IVA INCLUIDO) 
Descubre los misterio: 
gramac le una 
sencilla, con ejemplos, 
programa: 


P.V.P. 800 PTAS. 

(IVA INCLUIDO) 

Una inestimable ayuda que 
complementará la que 
proporciona el manual del 
ordenador 

(108 páginas tam 
13,5 x 21,5) 


P.V.P. 750 PTAS. 
UIDO) 


Un libro especialmente 
dedicado a los que se inician 
por vez primera en el mundo 
del Spectrum 

(100 páginas, tamaño 13,5 x 21) 


a 
LOS MEJORES 
PROGRAMAS 


P.V.P. 900 PTAS. 

(IVA INCLUIDO) 

Un compendio de los 
programas más diversos con 
los que podrá aprend 
jugando las important 
eristicas del BA! 


P.V.P. 800 PTAS. 

(IVA INCLUIDO) 

Muestra una visión más 
e 1 


er 


= سس‎ = COPIE O RECORTE ESTE BOLETIN DE PEDIDI 
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EL SPECTRUM (P.V.P. 750) O ۱ 
LOS MEJORES PROGRAMAS PARA EL ZX SPECTRUM (P.V.P. 900) O ۱ 
LOS MEJORES PROGRAMAS PARA EL VIMODORE 64 (P.V.P. 800) O 
EL 64 MAS ALLA DEL MANUAL | (P.V.P. 800) ۵ ۱ 
li 
l 


15 HORAS 


EL 64 MAS ALLA DEL MANUAL II (P.V.P. 800) -D 
(mas 100 ptas. de gastos 
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a C. P. J 
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canal «S» o un canal «P» que con- 
trole una impresora especifica que 
no sea la ZX-Printer. 

De todas formas, hay que andar 
con mucho cuidado cuando se tra- 
baja en este tema, pues el operativo 
del Spectrum, aún siendo toda una 
obra de arte, no es todo lo seguro 
que cabría esperar y resulta siempre 
una caja de sorpresas. Por ejemplo, 
si queremos cerrar uno de los cana- 
les que hayamos implementado de 
nada nos servirá CLOSE ++, de he- 
cho esta instrucción, usada por los 
canales 4-15, colgará irremisible- 
mente la máquina si el Interface 1 
está ausente. 

Queda, pues, demostrado que el 
crear nuestros propios canales pue- 
de ser de gran utilidad a la hora de 
compenetrar el inflexible BASIC 
del Spectrum con algunas de nues- 
tras rutinas de código máquina. Hay 
que volvera mencionar que lo dicho 
hasta el momento sólo se cumple en 
parte cuando tenemos conectado el 
Interface 1, por lo que quienes quie- 
ran aprender sobre todo lo que éste 
implementa concerniente a canales 
y corrientes, deberán esperar el mo- 
mento en que dediquemos un capí- 
tulo a este interesante periférico. 


Luis Gala 


por Jose l. Tomas 


NO SABÍA QUE SE HABIAN 
ALCANZADO TAN ALTAS COTAS 
DE INTEGRACIÓN, 


wht 
on 


E 
Ey 


a nuestras necesidades especificas, 
y que puedan ser usados en forma 
cómoda desdel el BASIC para dar 
salida de cualquier cadena o valor 
numérico. Pero la cosa no se queda 
ahí, ya que podemos usar las posibi- 
lidades que nos brinda el BASIC del 
Spectrum para sacar por nuestro 
propio canal el catálogo de un cartu- 
cho o un listado BASIC. Por ejem- 
plo, volviendo a la rutina anterior- 
mente vista, podemos hacer LIST 
#4 para listar directamente en la 
variable Z$, de esta forma tendre- 
mos en Z$ todo el listado del progra- 
ma BASIC que haya en ese momen- 
to, y alli, mediante un sencillo pro- 
grama, podriamos localizar una de- 
terminada cadena 0 algo por el esti- 
lo. 


Aunque el crear un nuevo canal 
no suele dar problemas, también 
puede usarse un canal ya existente y 
modificarlo para que sus rutinas 
apunten a donde nos interese. En 
este sentido el canal «K» no admite 
modificaciones, pues sus direccio- 
nes originales son restauradas cada 
vez que se ejecuta un INPUT, pero 
los otros tres sí pueden ser retoca- 
dos para que apunten a nuestras ru- 
tinas, con lo que podríamos conse- 
guir 64 caracteres por línea para el 


que tienen las variables en memoria 
dentro de su área correspondiente 
será estudiado extensamente, junto 
con la zona del BASIC, en el si- 
guiente capítulo. 

Hay que resaltar las limitaciones 
que tiene esta rutina: En primer lu- 
gar, la variable Z$ debe haber sido 
creada (aunque sea como cadena 
vacía, es decir, con LET Z$=" >) 
antes de intentar imprimir por el ca- 
nal 4; si no ha sido asi aparecera el 
error «Variable not found», lo mis- 
mo que si la variable Z$ habia sido 
dimensionada anteriormente. La 
rutina no funcionará tampoco (lo 
hará incorrectamente) cuando se 
trate de imprimir cadenas de más de 
un carácter en forma directa, de- 
biendo, en ese caso usar de inetrme- 
diaria a cualquier otra variable. O 
sea, en lugar de hacer PRINT # 4; 
“periquito”, habría que hacer: 

LET a$=“periquito”: PRINT + 4; 
a$. Esto no será necesario cuando 
las sentencias son parte de un pro- 
grama. 


Otros usos 


Como hemos visto, no es dificil 
crear nuevos canales que respondan 
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CIBERUN 


nave que avanza por el pérfil de un 
planeta. Esta permanece siempre en 
el centro de la pantalla moviéndose 
el resto del decorado con un scroll 
muy suave. Según dicen las instruc- 
ciones el objetivo es montar las pie- 
zas de la nave que se encuentran ra- 
partidas por el planeta y recoger los 
cristales de Cybernita con los que 
podremos escapar del campo de 
fuerza que envuelve el planeta. 


Conforme jugamos un par de par- 
tidas y aprendemos a defendernos 


El objetivo de Cyberun es 
montar las piezas de una 
nave espacial y recoger 
los cristales de Cybernita 
que nos permitirán escapar 
del planeta. 


nos tienen acostumbrados. Nada 
más comenzar el juego nos encon- 
tramos a los mandos de una curiosa 


stamos en el mes de julio, se 
E acercan los exámenes y hace 

un tiempo expléndido para co- 
mernos la moral. En esta situación 
cayó en mis manos el nuevo progra- 
ma de ULTIMATE. Solamente por 
tratarse de esta casa se supone que 
debe ser una mavarilla y un objetivo 
idóneo para la guía de Hackers. Se 
trata del CYBERUN. Cuando se 
carga por primera vez nos encontra- 
mos con que no es lo que espera- 
mos. Los gráficos están bastante 
bien, pero no son del nivel al que 
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la que lanza el programa, esa una di- 
rección que corresponde con la me- 
moria intermedia de la impresora, 
donde no ha cargado nada. Carga- 
mos el primer bloque y el monitor 
para ver que es lo que ocurre real- 
mente. Nos encontramos con que 
aparte de mover la pantalla prepara 
un par de bloques en código máqui- 
na para usarlos antes de lanzar el 
programa. Uno de ellos va a parar 
justo a la dirección 5B80, a la que 
se llama desde el BASIC. La finali- 
dad de estas rutinas es mover el blo- 
que principal hasta la dirección 
+ 5C80 y luuego rotarlo todo medio 
byte a la derecha. Esta es la direc- 
ción en que lanza finalmente el pro- 
grama, lo que empieza a preocupar- 
nos. Caejusto en medio de las varia- 
bles del sistema BASIC, lo cual im- 
posibilita el utilizar el monitor con 
el programa cargado en su sitio. (En 
realidad si que existe un monitor de 
PICTURESQUE que es totalmente 
independiente de estas variables y 
que podría funcionar, pero no es 
reubicable y no tiene las prestacio- 
nes del MONS), En principio inten- 
taremos cargar el programa en otra- 


tes al INTERFACE 1. Cambiamos 
el color de la tinta y ya podemos ver 
el listado del primer cargador. Nos 
encontramos con que aparte del 
CLEAR que ha originado el error 
hay dos LOAD “ ” CODE con una 
llamada a una rutina en máquina en 
medio y otra al final. El primer blo- 


El programa se lanza justo 
en la dirección en que 
comienza el bloque 
principal, desactiva las 
interrupciones y salta a 
una dirección superior. 


que tiene que ser la pantalla de pre- 
sentación y la primera llamada se 
debe encargar de volcarla desde la 
dirección en que se ha cargado hacia 
la memoria de pantalla. Pero no de- 
bemos fiarnos de que haga sola- 
mente esto, sobre todo al darnos 
cuenta de que la segunda llamada, 


de los estraños habitantes del plane- 
ta nos damos cuenta de la gran com- 
plejidad del juego. El planeta tiene 
unas dimensiones impresionantes y 
un gran laberinto de cavernas subte- 
rráneas en las que nos perderemos 
con facilidad. 

Con las ideas así de poco claras 
sobre lo que hay que hacer para ter- 
minar la aventura nos lanzamos a 
otra no menos compleja. Tratare- 
mos de averiguar qué hay detrás de 
este programa y conseguir algunos 
POKEs que nos ayuden a acabar el 
juego. 

Como siempre, empezaremos 
por ver cómo funciona el proceso de 
carga con la finalidad de conseguir 
que lo haga sin que lanze el juego. 
Así tendremos el programa en me- 
moria para poder analizarlo con 
ayuda del monitor. Empezamos 
por cargarlo normalmente y proba- 
mos a hacer un break después del 
primer bloque. La ejecución se de- 
tiene con un curioso informe «Out 
of memory». Sin duda se debe a que 
ha colocado el RAMTOP demasia- 
do bajo y tiene problemas par crear 
la zona de variables correspondien- 


10 CLEAR 2520 110 INFUT "Sin conbustible ۶ 
LOAD "“CODE 16213: FAFER O: LINE af: IF a s" THEN POKE 53 
PRINT AT 19,0 879,201 
ODE 252 120 INFUT "Escapar sin montar e 
+ FOR i=25296 TO 233 1 cohete ?"; LINE af: IF at="s" 
29: READ a: LET s=sta: PORE i,a: THEN ۳ 40029 ,0 
NEXT i 130 INFUT "Cualquier orden ?"; 
50 IF sik THEN LINE af; IF af='s" THEN FORE 45 
60 RANDOMIZE USR 293,0 
70 INFUT "Nave montada (s/n) 140 INPUT "Sin enemigos LIN 
۲ LINE af E af: IF af='s" THEN FOE 780 
80 IF af="s" THEN PORE 6: 4ب‎ 


7255,2 


3128,98 


900 RANDOMIZE USR 2 


A43, 0, 254,3 
,17,128,92,1,128,157,237.176,195 


i=4 TO ۶ 


O FOR 
FOKE 64493+i,i: NEXT i 


2 FORE 64494,1: 


90 IF a€ee"s" THEN INPUT "Far 

tida continuada 7"; LINE a$: IF 

at ۲ THEN PORE 63902, 201 1010 DATA 
OO INPUT "Inmortal LINE af 

: IF af="s" THEN POKE 38278,0 ,128,92 


dirección y deshacer la máscara. 
Cargamos el monitor encima y em- 


à TABLA 1 
pezamos a analizar en una direccion 
cambiada. Aunque se han elegido POKE 63902,201 Partida continuada. 
las direcciones de forma que sea POKE 37745,X — Nimero de enemigos (máximo 9). 
muy sencillo realizar la conversión POKE 63951,X Número de vidas iniciales. 
(para mirar lo que hay en la direc- POKE 64207,0 Vidas infinitas. 


POKE 38278.0 Inmortal. 


dirig 53617,201 Evita la muerte por quedarnos sin combustible. 
# 6280) resulta realmente incómodo. 400290 Permite escapar sin hacer nada. 


Si tuvieramos que hacer esto duran- 45293,0 No importa el orden. 

te todo el análisis habría que tener PONE e sin enemigos. 

mucho cuidado con las direcciones $ asta con acercarse para coger una cosa. 
Ochi و‎ POKE 51168,1095 Permite bajar la vela's los subterráneos: 

POKE 53879,201 No consume combustible, 


ción ++5C80 hay que dirigirse a 


Sin embargo, nada más comenzar 
el análisis nos encontramos con un 


rayo de esperanza. Lo primero que Para estos POKES hay que jugar con el de partida continuada. 
hace es desactivar las interrupcio- Ta A ی و دی‎ AY A 
nes y saltar a nna ditección mucho 64494, 'enemos las pinzas desde el principio. 
ANRO NO A EE POKE 644974 Propulsión horizontal, 
ay + یپور‎ E POKE 64498,5 Propulsión vertical. 
brá problemas para manejarlo en su POKE 64499,6 Ruedas. 
sitio. POKE 64500,7 Plasma. 
Esta forma de lanzar el programa POKE 64501,8 Bombas. 
justo en la dirección en que comien- POKE 64502,9. "Soporte de la vela. 


za el bloque principal y hacer rapi- 
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puntos. Como funciona con las inte- 
rrupciones deshabilitadas esto pro- 
vocará el bloqueo del ordenador. 
De esta forma podremos saber cuál 
es el efecto de la parte de programa 
que ha sido ejecutada. Así llegamos 
ala conclusión de que la primera ru- 
tina a la que se llama (+ F26C) ges- 
tiona toda la parte correspondiente 
al menú. A partir de aqui debe de es- 
tar la inicialización de variables y es- 
te es un punto del que normalmente 
podemos sacar bastante partido. Por 
esta razón nos adentramos en la ru- 
tina de la dirección + F3BD. Lo pri- 
mero que hace es poner a cero los 


dos primeros bits de los 290 bytes a 
partir de la dirección ++ 5094, Para sa- 
ber para que sirven modificamos es- 
to y nos encontramos con que se tra- 
ta de todos los soportes donde pue- 
den estar colocadas las cosas que 
buscamos. A continuación inicializa 
de la misma forma dos zonas de me- 
moria llamando dos veces a la mis- 
ma subrutina. Esta dualidad nos ha- 
ce pensar en los dos jugadores. De- 
ben de ser las variables que se con- 
servan cuando le toca jugar al otro 
jugador, esto es: los puntos, la posi- 
ción en que estamos, las partes de la 
nave que tenemos montadas, etc. 


de juego. Se extiende hasta ++ F48A 
y sólo se abandona cuando nos han 
matado o hemos conseguido aban- 
donar el planeta. Enseguida surge la 
idea de anular los dos saltos condi- 
cionales que controlan estas dos sa- 
lidas. Pero los resultados no son de- 
masido buenos. Modificando el pri- 
mero (NOPeando # F481) nos si- 
guen matando de vez en cuando 
aunque sin descontar la vida. Sin 
embargo, cuando se acaba el com- 
bustible nos empiezan a matar con- 
tinuamente quedando el programa 
bloqueado. Si POKEamos el segun- 
do poniendo en + F487 un cero, nada 


más empezar la partida nos felicita 
por haber conseguido el objetivo de 
nuestra misión. Sólo sirve para des- 
cubrir que en total hay cinco plane- 
tas que se suceden ciclícamente y 
que cada vez queabandonamos uno 
obtenemos 50.000 puntos. 

El bucle se cierra sobre ++ F46C 
mientras jugamos y sobre + F440 
cuando nos acaban de matar. Lo 
que hay antes de esta última direc- 
ción debe de ser la parte de iniciali- 
zación de la partida y el menú. Para 
ir aislando la función de cada parte 
del programa probamos a colocar 
una instrucción HALT en distintos 


damente un salto a la dirección en 
que realmente debe empezar el jue- 
go es clásica de ULTIMATE. Que 
yo recuerde la ha utilizado en casi 
todos sus programas escepto en los 
dos escritos con la técnica Filmation 
1, que coincidieron con la época en 
que utilizo el método de protección 
SPEEDLOCK, en el que no queda- 
ba claramente definido el bloque 
principal del programa. En general 
suele colocar a continuación las ta- 
blas de datos y el mapa. De todas 
formas nunca habían apurado tanto 
la memoria como para sobreescribir 
el área de las variables del sistema 
BASIC, 

Rápidamente, montamos un nue- 
vo cargador que aunque no carga to- 
do el programa, lo hace en la direc- 
ción correcta y nos permitirá inclu- 
so ejecutar paso a paso algunas ruti- 
nas. Pasamos a ver lo que ocurre en 
+ 9۸66۰ Se trata de la zona de inicia- 
lización general del programa. Lla- 
ma a una subrutina en ++ F86B y lue- 
go salta a ++ ۲422, la dirección del 
bucle principal. En la rutina a la que 
llama nos encontramos con que a 
partir de++ FA00 crea unaserie de ta- 
blas de desplazamiento que servirán 
para acelerar el proceso de scroll de 
la pantalla. Lo que hace es colocar 
en la dirección + FAXX el byte XX 
rotado dos pixels a la derecha, y los 
dos bits que sacamos pasan a la di- 
rección + FBXX entrando por la iz- 
quierda. Lo mismo hace a partir de 
+ ۲۵۵۵ pero rotando cuatro veces y 
a partir de ++ FEOO rotando seis veces. 
A la vista de estas tablas se deduce 
que el movimiento más pequeño es 
de dos pixels. La principal ventaja 
de esto es que sólo tiene que despla- 
zar el contorno del planeta, ya que el 
interior es una cuadricula que al 
moverla dos posiciones coincide 
con ella misma. De la misma forma 
crea a partir de ++ F900 la tabla de ro- 
taciones en la que para cada byte tie- 
ne almacenado su simétrico. Todas 
estas tablas ocupan en total 1792 by- 
tes, pero a cambio se consigue una 
gran velocidad en los desplazamien- 
tos y giros. 

Continuamos el análisis en 
+ F422. Aquí está el bucle principal 


de dieciséis. Cada objeto se sortea 
dentro de un grupo distinto. Así to- 
das las partes de la nave están en la 
superficie y relativamente cerca de 
la posición de partida. En cambio las 
partes de la unidad de propulsión se 
suelen encontrar en los pasadizos. 

Sabiendo ya como esta codificado 
todo esto no ofrece dificultad aden- 
trarse en el resto del programa en 
busca de los POKEs que nos permi- 
tan acabar fácilmente el juego (o 
avanzar en el ya que no tiene final). 
Anulando las llamadas a las rutinas 
en el bucle principal averiguamos 
cual es la utilidad de cada una de 
ellas. La que esta en la dirección 
# C374 se encarga del control de 
nuestra nave y del teclado, la de 
+ CC77 del control del combustible, 
la de ++ 8D42 del movimiento de to- 
dos los objetos de la pantalla, y la de 
1231 de generar números aleato- 
Tios. 

Los POKEs finalmente encontra- 
dos los tenéis en la tabla 1 y para 
usarlos basta con ponerlos en el 
programa 1 a partir de la línea 500. 
En este cargador ya se han incluido 
algunos mas interesantes, entre 
ellos el que nos permite tener la na- 
ve totalmente montada antes de em- 
pezar la partida. Esto implica tener 
que jugar una partida continuada, 
puesto que sino en la inicialización 
nos quitaría todo. Para los que in- 
tentéis continuar buscando más co- 
sas tened en cuenta que las direccio- 
nes están calculadas para este carga- 
dor concreto que coloca el bloque 
principal desplazado 1536 bytes 
respecto a su dirección de ejecu- 
ción. En esta ocasión no se ha cons- 
truido un cargador de los que nos 
preguntan por los POKEs antes de 
cada partida por el problema de que 
la memoria está utilizada en su tota- 
lidad y no hemos podido encontrar 
un sitio donde colocarlo durante la 
ejecucion. Por ultimo una adverten- 
cia respecto el POKE que nos per- 
mite recoger los pedazos de la un 
dad de propulsión en cualquier o: 
den. Si se coge más de uno simult 
neamente podéis tener problemas 
para colocar el último. 

Manuel Arana 


distintos valores en el registro HL. 
Tiene que ser algo relacionado con 
los dos jugadores. Esta zona de me- 
moria corresponde con la que he- 
mos destruido para poder funcionar 
con el monitor. Quizá pudiéramos 
pasar sin saber cuál es su finalidad, 
pero puede ser importante y no 
cuesta tanto cargar la primera copia 
que hicimos y analizar la rutina des- 
plazada. Nos ponemos a ello, Lo pri- 
mero con lo que nos encontra- 
mos es que pone a cero los bits.7 
de una serie de bytes y luego realiza 
un estraño sorteo. Analizando dete- 
nidamente y con una serie de PO- 


on > _ SCORE 


ee 


| 


| 


KEs de ayuda llegamos a la conclu- 
sión de que se trata de la elección de 
la posición de las piezas de la nave y 
de la unidad de propulsión. En total 
tiene que sortear 16 cosas: siete par- 
tes de la nave, ocho partes de la uni- 
dad de propulsión y la vela, que sólo 
puede ser cogida cuando ya tene- 
mos el soporte. La vela en realidad 
está formada por dos objetos, pero 
sólo se sortea la parte de abajo, que- 
dando determinada la posición de la 
parte de arriba. Para realizar el sor- 
teo tiene en total 44 posibles posi- 
ciones divididas en 5 grupos, uno de 
dos, otro de cuatro, otro de seis y dos 


Sería una buena idea el que todo es- 
to se pudiera conservar de una parti- 
da a otra. Para ello bastaría con colo- 
car una instrucción RET alprincipio 
de la rutina. Pero no funcionará a no 
ser que cuando se cargue el progra- 
ma de la cinta ya estén las variables 
en su sitio. Rápidamente vamos a 
las direcciones donde deben estar y 
nos encontramos con que si que tie- 
nen el valor con que son inicializa- 
das. Poniendo en la dirección 
+ F39E el dato + 09 se juega una 
«partida continuada», en la que si 
nos matan continuamos la siguiente 
partida en la situación en que está- 


bamos. 

Sí seguimos con la rutina de ini- 
cialización nos encontramos con 
que coloca en las direcciones 
+ FSED y + F656 el dato + 05. No 
hay duda de que tiene que ser el nú- 
mero de vidas de los dos jugadores. 
Para asegurarnos cambiamos este 
dato por otro mayor y en efecto te- 
nemos más vidas. Como siempre 
buscamos el punto en que se decre- 
menta y conseguimos el POKE de 
vidas infinitas. 

El resto de la rutina cambia de si- 
tio algunas variables y al final llama 
dos veces a la dirección ++6113 con 


MANDELBROT ataca denuevo 


No creemos en duendes, pero haberlos haylos, y el mes pasado se ensañaron con el artículo de Gerardo Izquierdo 
dedicado al conjunto de Mandelbrot. Tras una ardua batalla con la sección de montaje, tres de los cinco listados del 
artículo fueron derrotados y publicados en absoluto desorden, por lo que, esta vez con un fuerte apoyo de artillería por 
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Joaquin Herreros es el autor de este programa que permite 
resolver los problemas que se presentan con más frecuencia al 
trabajar con progresiones, tanto aritméticas como geométricas. 

Las opciones posibles son: hallar la razón de una progresión, 
hallar un término determinado, hallar el número de términos y 
hallar la suma de todos los términos. 
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tre- mos y conocidos de la suces 
ion." 

1702 PRINT ‘: PRINT " INTRODUCE: 
۲۶: PRINT ': PRINT "-EL EXTREMO I 
NFERIOR t(1).": PRINT "-EL EXTRE 
MO SUPERIOR t(n).": PRINT "-LA و‎ 
UMA DE TODOS LOS TERMINOS." 

1705 INPUT "t(1) 1 

1706 INPUT "t(nm) “stn 

1707 INPUT "SUMA 
1708 IF (ti=s OR tn=s) AND 1: <+ 
n THEN GO SUB 9100: GO TO 1702 
1709 IF s=0 AND ABS ti<>ABS tn T 
HEN GO SUB 9100: GO TO 1702 


PROGRAMAS 


+la-b)xr": FLASH 03" siendo:" 
1601 LET d=b: PRINT ۰: PRINT "tc 
a) el termino que queremos ha-11 
ar de la progresion.": PRINT ‘: 
PRINT “t(b) el termino conocido. 
n 

1602 PRINT FRINT "a y b los 1 
ugares que estos ele-mentos ocup 
an en la progresion.": PRINT ‘: 
PRINT ۳ INTRODUCE POR ESTE ORDEN 
a": PRINT ^: PRINT " -EL LUGAR Q 
UE OCUPA EL TERMINO DESCONOCIDO. 
۲: PRINT " -EL LUGAR QUE OCUFA E 
PRINT 


L TERMINO QUE CONOCEMOS.": 
“ -EL VALOR DE ESTE." 
INPUT 


1603 "DAME ESTOS DATOS: 5 


INPU 


b 

1606 IF bí=0 THEN GO TO 1605 
1607 INPUT "DAME ESTOS DATOS: "; 
w 

1608 IF d=2 THEN RETURN 

1609 IF a=b THEN LET v=w: LET r 
=0: GO TO 1614 

1610 INPUT "DAME LA RAZON: 


1611 IF (ab AND r:0) OR (ab AN 
D r40) THEN GO SUB 9100: GO TO 
1603 

1612 LET z=a-b: LET c=z*r: LET v 
=wte 

1614 CLS : PRINT ‘: PRINT " El t 
ermino que esta en "۵:۲ posi- c 


ion es: ۷ o 

1615 FOR f=1 TO a-i 
1616 LET v=v-r 

1617 NEXT f 


1618 PRINT ': PRINT " El primer 
termino de la progre-sion es: "3 
NE 

1619 PRINT ': PRINT " DAME EL NU 


MERO DE TERMINOS QUE TIENE LA PR 
OGRESION Y TE DARE ELVALOR DE CA 
DA UNO DE ELLOS. SI NO, METE "; 
FLASH 1; "CERO FLASH 03." 
1620 INFUT ;n 

1621 IF n=0 THEN RUN 15 

1622 IF ní0 THEN GO TO 1616 


T SS 
KANN 
AT NI 


) NEXT F 

1740 PRINT #0; "FULSA UNA TECLA F 
ARA CONTINUAR 
1730 FAUSE O 
1760 RUN 5 
1800 CLS PRINT " La formula po 
r la cual vamos a hallar la suma 
de todos los ter-minos de una p 
rogresion aritme— tica es:" 


1801 PRINT PRINT " S= 

(ti+tn) ۳ ۲: PRINT " 
PLOT 70,1 DRAW 3: 

1802 PRINT FRINT " ti es el 


primer termino de la progresion. 
"1 PRINT PRINT " tn es elu 
ltimo termino de la progresion." 


: PRINT ': PRINT " n es el nume 
ro de terminos." 
1803 PRINT ': PRINT " INTRO 
DUCE LOS DATOS ۲: PRINT " 
POR ESTE ORDEN ki 
1804 INPUT "ti "sti 
O INPUT "tn ¿tn 
INPUT “W a 


1807 IF xi=0 THEN GO TO 1806 
LET h=(tit+tn)/2: LET s=h#x 
1813 LET 1261: LET kestn-l: LET € 
:/ (x-1) 

IF c<>INT c THEN GO SUB 91 
00: GO TO 1804 


1712 LET s=s/x: IF s¢>INT s THEN 
GO TO 1705 
1713 CLS FRINT "El numero de e 
lementos que tienetu progresion 


"3 y la progre-sion es:": 


NT ': PRINT " TERMINO 
VALOR  ": OVER 1: PRIN 
TAT Axo E 
OVER O 
1714 LET abc=6: LET abd=26 
1715 LET n=s-1: LET l=ti 
1720 FOR f=1 TO s 
1721 IF ۴10 THEN LET abc=5: 1 
F f>=100 THEN LET abc=4: IF f 
1000 THEN LET abc=i: IF f>=1000 
LET abc=2 


O THEN 


O THEN 
THEN 


abcsf;TA 


1726 IF n=0 THEN GO TO 
1727 LET t1=41+(En-1 Zn 


1730 


TI 
O TERMINO. 


siendo: " 
2001 PRINT AT 8,1;"t EELISE 
PRINT AT 11:15 ۳۳ )۵( اه‎ )2( ۳ ECS 
Jatt "r PRINT AT 10,255 "(3 
۲۶ PRINT AT 14,15". ene 


: PRINT AT 14,1 
PRINT AT 19,8; 


(nd 2 n>}‏ ۲۲ و 


FLASH 1;"t(a (b) xr "AT 2 
Byte ta-b)" 
۳ PRINT ۴۵۰۱ ۳ FULSA UNA TECLA 
CONTINUAR " 
3 PAUSE 0 
2004 GO SUB 20: GO SUB 2010: RET 


URN 


PRINT AT 2,2;"LA SUMA DE TO 
DOS LOS TERMINOS";AT 3,2;"DE LA 
FROGRESION: "¿AT ges “tt C1), ECZ), E 
C3) t(n-1) t(n) “FAT 7,25"ES: "¿AT 
وه و9‎ "SSE )1( تا‎ (2) Fs s HE LE 
(n) ۲۶۵۲ 11 , 2 ۲۷ SUSTITUYENDO QUE 


DA:" 

2 PRINT AT 13,103 "S=t (m)xr-t ) 
1) PRINT AT 14,16; ۳۰۰۰ PLOT 
96,63: DRAW 86,0 


2030 PRINT #0; "PULSA UNA TECLA F 
ARA CONTINUAR” 

20 FAUSE 0 

2040 RETURN 

2500 CLS : PRINT " La formula qu 
e vamos a utilizarva a seri": FR 
INT AT 3,7;"a-b": PRINT AT 4,105 


1815 CLS : PRINT " 
dos los terminos de la progresi 
on cuyo primer e~ lemento es "st 
13" y ۲۱۲۳۲۲ es el ultimo,es:": 


La suma de to 


PRINT ‘: PRINT " us 
1820 FRINT ': PRINT "y la progre 
Sion es:": PRINT “: PRINT " TE 
RMINO VALOR "a ÒV 


ER 1; PRINT AF FO 


": OVER 
1821 
1825 
MEZI 10 THEN LET abd=25: 


100 THEN LET abd=24: IF 

) THEN LET abd TEN 
QQ THEN LET abd TÈ ۸ 
LET abd TEST 


LET 

FRINT ‘: PRINT 

AB abd;ti 

1831 IF x=1 THEN 
1 LET. ti=ti+c 
1835 NEXT f 

1840 PRINT #0;"PULSA UNA TECLA ۴ 

ARA CONTINUAR" 

1850 PAUSE ۵ 

1860 RUN 15 

2000 PRINT AT 2,3; "LA PROGRESION 
ES DEL TIFO:": PRINT AT 4, 
1) yt (2) ۲و‎ (3) ,t(m=1) tn)": 


GO TO 1840 


00 THEN LET abd= 
000 THEN LET abd=20 
"۶: PRINT TAB abcyw;TA 


B abd;tb 
2539 LET tb=tbx*1 
2540 NEXT w 


2550 PRINT +0; "FULSA UNA TECLA F 
ARA CONTINUAR." 

2560 PAUSE O 

2570 RUN 15 

2600 CLS : PRINT " La formula me 
diante la cual va-mos a hallar d 
icho termino es: PRINT ': PRIN 
T AT 3,19;"(a-b)": PRINT AT 4,8; 
"tla)=t(b)xr": PRINT AT 4,25; "si 
endo:" 

2601 GO SUB 1601 


2610 IF a=b THEN LET r=i: GO TO 
2630 
2611 INPUT "DAME LA RAZON: "gr 


FOR +=1 TO b-1 

2635 LET w=w/r 

2640 NEXT f 

2641 LET 1=w 

2642 FOR f=i TO a-i 

2644 LET w=wx*r 

2646 NEXT f 

2650 CLS PRINT " El termino qu 
e esta en 3" posicion es: "sw 
2660 PRINT a: PRINT " DAME EL NU 
MERO DE TERMINOS Y TEDARE LA FRO 
GRESION COMPLETA. SI NO METE CER 
0." 


670 INFUT z 


680 IF z THEN GO TO 2670 

2685 IF z=0 THEN RUN 5 

2686 LET abe=6: LET abd=26 

2690 FRINT PRINT " TERMINO 
VALOR t “OVER La 


PRINT AT 7,0; 


2691 FOR f=i TO z 
2692 IF #>=10 THEN LET abc=5: I 
ESE 100 THEN LET abc=4: IF f= 
1000 THEN LET abc= IF f>=1000 
O THEN LET abc=2 


PROGRAMAS 


"t(a)": PRINT AT 5,103 "t (b)" 
2501 PLOT 62,140: DRAW 10,-10: D 
RAW 12,20: DRAW 26,0 


2502 PLOT 81,1 DRAW 28,0 
2503 PLOT 114, DRAW 5,0: PLO 
T 114,134: DRAW 5,0 
2504 FLOT 123,133: DRAW O FLO 
T 124,137: DRAW 2,0 


2505 PRINT "siendo:" 
2510 GO SUB 1501 
2511 IF b THEN LET l=i 


2512 IF az AND ta=tb THEN GO 
TO 2500 

2515 LET z=ta/tb: LET r=a-b: LET 
l=2*(1/r) 

2514 CLS 


2516 FOR a=1 TO b-1 

2517 LET tb=tb/1 

2518 NEXT a 

2519 PRINT " La solucion a la pr 
ogresion cu-yos datos me has dad 


o esi": PRINT ^: PRINT " RAZON=" 
31 
0 
2520 PRINT ': PRINT " El primer 


termino de la progre-sion es: ۶ 
tb 

2521 PRINT ^: PRINT " DAME EL NU 
MERO DE TERMINOS DE LA PROGRESI 
ON Y TE LA DARE COM- FLETA. PARA 
EMPEZAR OTRA VEZ ME-TE FLASH 
1; "CERO"; FLASH 03%." 

2522 INFUT n 

IF ní0 THEN 


GO TO 2 
RUN 5 
Tu progresion 


2533 PRINT PRINT " TERMINO 
VALOR ": OVER l: 
PRINT AT 2 "SAT 2, 


LET abc=62 LET a 


=i FQ n 
10 THEN 
THEN 


5 


LET abc= 
LET abc=4: IF 


PROGRAMAS 


6 LET ta=ta/r 

NEXT d 

31 LET f=1 
LET 

LET f=f+1 

LET y=r*y+1 

IF s=ta*y THEN GO TO 2756 


IF ABS s>ABS (ta*y) THEN G 
2740 
IF s aky THEN GO TO 2790 
2755 6N TO 2740 
2756 CLS : PRINT " El primer ter 


mino de la progre-sion es: "sta: 
y la razon: " s" 
2757 PRINT ’ 

2760 PRINT " El numero de termin 
os que tienela progresion es: "; 
۲-1: ۲ y estos sons" 

2765 PRINT ‘: PRINT AT 7 
l $ "VALOR": 


THEN LET abe= 
qó=10 THEN LET abc=5: IF q 
O THEN LET abc=4 


277A IF t 1 THEN LET abd=27: 


IF tas=100 


000 THEN LET abd: 
2775 PRINT PRINT TAB abc; q; TA 
B abd;ta 


2777 LET ta=taxr 

2780 NEXT q 

2785 PRINT #0; "PULSA UNA TECLA F 
ARA CONTINUAR" 

2788 PAUSE O 

2789 RUN 15 


2790 CLS : PRINT " Has introduci 
do mal algun dato. Repite la ope 
racion.": GO TO 2702 


2800 CLS 


I 


ón 
3 000 
10000 T 


THEN LET abd= 


HEN LET abd=22: 00000 TH 
EN LET ab 000000 TH 
EN LET ab 

2694 PRINT ': PRINT TAB abc:f; TA 
B abd;l 


2695 LET l=1x*r 
2696 NEXT f 
2697 PRINT ۵ 
ARA CONTINUAR. " 

2698 PAUSE 0 

2699 RUN 15 

2700 CLS 

2701 PRINT " En esta ocasion vas 
a introdu- cir los datos como s 
igue:" 

2702 PRINT ^: PRINT "-PRIMERO: I 
NTRODUCE EL LUGAR QUE OCUPA UN T 
ERMINO CUALQUIERA EN LA FROGRES 
TON Y LUEGO SU VALOR." 

2703 PRINT ': PRINT "SEGUNDO: I 
NTRODUCE EL LUGAR QUE OCUPA CUAL 
QUIER OTRO TERMINO DE LA PROGRES 
ION Y SU VALOR." 


FULSA UNA TECLA P 


2704 FRINT ‘: PRINT "-TERCERO: I 
NTRODUCE LA SUMA DE TODOS LOS 

TERMINOS PERTENECIEN- TES A LA P 
ROGRESION. " 

2705 INPUT "DAME EL LUGAR Y EL V 


ALOR DE UNO DE LOS TERMINOS: "za 


sta 
2706 IF a: THEN GO TO 2705 
2710 INPUT "DAME EL LUGAR Y EL V 


ALOR DE OTRODE LOS TERMINOS: "sb 
„tb 

2711 IF معط‎ THEN GO TO 2710 
2712. LF: b AND tat>tb THEN GO 
TO 2790 


2720 INFUT "DAME LA SUMA DE TODO 
S LOS TERMI-NOS DE LA PROGRESION 
: 5 

2721 LET z=tb/ta: LET x=b-a 
2722 IF ta=tb THEN LET x=1 


2870 NEXT x 

2875 PRINT #0;"FULSA UNA TECLA ۴ 
ARA CONTINUAR" 

2880 PAUSE O 

2885 RUN 15 

9000 CLS PRINT " La solucion c 
on ese dato es in-determinada. L 
o mismo puede ha- ber n, que n-1 
y que n-2, que n+nelementos en 1 
a progresion.": INVERSE 1: PRINT 


“a PRINT " EJEMPLO: 
9001 PRINT ': INVERSE O: PRINT " 
PROGRESION 1 PROGRESION 2 
"; PRINT ‘: PRINT "TERMINO VALO 
R TERMINO VALOR": PRINT AT 9 
FO FA EG Sa 

9002 FOR p=1 TO 3 
9003 PRINT ': PRINT TAB 1:۵ 


9004 NEXT p 

9005 LET k=1 

9006 FOR p=1 TO 5 

9007 FRINT AT 10+ 193 "t"sp: LET 

k=k+2 

9008 NEXT p 

9009 PRINT AT 11,9;tis AT 1 
1 


9010 PRINT AT 


9: ۲۵۲: LET k=t1 


9012 PRINT AT 17,27 
19,27; tn 
9040 PRINT #0 
PARA CONTINUAR 
9050 PAUSE O 
9060 RUN 5 
9100 CLS PRINT " Has introduci 
do mal los datos. No es posible 
ninguna progresionaritmetica con 
ellos.": PRINT ۳۳: PRINT FLAS 
Hope REFITE LA OPERACION 
۲: RETURN 


PROGRAMAS 


2801 PRINT " La formula mediante 
la cual va-mos a calcular la su 

ma de todos los terminos de la p 
rogresion vaa ser:" 

2802 PRINT ‘: PRINT "S=t (1) +t (2) 

FES) +. (m1 +t (n) " 


2803 PRINT ‘: PRINT " De donde, 
despejando, queda:": FRINT ‘: PR 
INT 2 n-i 
۷ PRINT © S=t(1)x (1+r+r 
یرد‎ o) m 


2804 PRINT PRINT " DAME EL FR 
IMER TERMINO DE LA FROGRESION, 
LA RAZON Y DESPUES EL NUMERO D 

E TERMINOS. " 

2805 INPUT "PRIMER TERMINO: 
2810 INPUT "RAZON: ۳ 

2820 INPUT "NUMERO DE TERMINOS: 
“sa 
28233 

2825 

2830 TO n 

2835 LET y=rx*y+1 

2840 NEXT x 

2845 LET s=taxy 

2850 FRINT ': PRINT " La suma de 
todos los terminos de dicha pr 


"sta 


THEN 


Go TO 


ogresion es: ۲5۱۲ y los termino 
s son: 


1 


PRIN 
"SOT 20, 2R 


LET abc=6: 
10 THEN LET abc=S: IF x} 
O THEN LET abc=4 

2862 IF tas=1 THEN LET abd=27: 
IF ta*=10 THEN LET abd=26: 
a?=100 THEN LET abd 
10 THEN 
000 THEN 
000 THEN LET abd 
2865 PRINT *: PRINT TAB abc 
E abd;ta 

2866 LET ta=ta*r 


PROTECCION DE 
FICHEROS 


Poseo un Spectrum Plus con 
dos unidades de microdrive y ten- 
go confeccionado un programa de 
ficheros para dichas unidades. El 
programa, en BASIC, consiste en 
la creación de un índice para todos 
los artículos de revistas y+libros 
que poseo, manejando a un mismo 
tiempo varias variables de cadena 
(revista, número, página, conteni- 
do, etc.) e incluyendo opciones de 
creación, lectura, ampliación y bo- 
rrado de ficheros, así como catálo- 
go de los mismos. En el número 8 
de su revista apareció un programa 
con el título «Una clave, please»; 
el cual he querido incorporar al 
programa confeccionado por mí 
sin poder lograr mi objetivo. 

¿Cómo podría incorporar el 
programa «Una clave, please» pa- 
ra proteger el acceso a mi progra- 
ma o para no poder leer los datos 
escritos en el fichero sin introducir 
la clave preestablecida?; lo hi 
tentado varias veces según las ins- 
trucciones aparecidas y no lo con- 
sigo, pues no comprendo del todo 
los apartados (del 1 al 9) que vds. 
editan ni las imputaciones (Ram- 
top y direcciones) que solicita di- 
cho programa. ¿Cómo podría ac- 
tualizar los ficheros empleando las 
dos unidades de microdrive y utili- 
zando la sentencia MOVE?; pien- 
so que este método puede ser más 
rápido y eficaz que el adoptado por 
mí. 


Fernando Clavijo 
Málaga 


Si realmente quieres proteger 
tu programa de la curiosidad 
de la gente, de poco te valdrá la 
rutina a la que haces referencia, 
pues, aunque es evidente que 
una vez se esté ejecutando impe- 
dirá el continuar a quien no co- 
nozca la clave correspondiente, 
no es menos cierto que resultará 
totalmente inútil desde el mo- 
mento en que alguien rompa 
la ejecución del cargador antes 
de que se salte a esta rutina, con 


APARTAD 


DE CORRE 


Dirige tus cartas a: 
Todospectrum 
Bravo Murillo, 377, 5.°-A 
28020 Madrid 


normalmente MAIN 4, termina 
saltando al editor BASIC. Yo he 
solucionado el problema elimi- 
nando las linas 40 y 50, y susti- 
tuyéndolas simplemente por un 
RET. 

Espero efectuéis la correspon- 
diente corrección en Todospec- 
trum. Sólo me queda saludaros y 
desearos prosperidad en esta 
vuestra revista. 

Angel Olivart 
Reus (Tarragona) 

Gracias por los cumplidos. El 
problema que has detectado se 
debe a que el autor del programa 
incluyó en el listado unas líneas 
de demostración para que pudie- 
ra ser llamado directamente des- 
de el BASIC sin problemas. Pue- 
de ser perfectamente utilizado 
para nuestros propios fines usan- 
do exclusivamente las líneas 60 - 
300, es decir, la rutina «CODI- 
GO». Eso sí, antes de llamar esta 
rutina hay que cargar en HL la di- 
rección de inicio de la tabla don- 
de se encuentre el texto BASIC 
almacenado, con un 13 (ENTER) 
al final. Por esto, si la llamáramos 
directamente desde el BASIC, 
daría problemas al tener HL un 
valor no predecible 


BASIC DESDE CODIGO 
MAQUINA, PASANDO 
POR REUS 


Ante todo felicitaros por la re- 
vista, de la que cada vez estoy más 
contento, y en particular por los 
últimos números, que me parece 
que han cambiado y para bien; pe- 
ro bueno, esto os lo deben decir to- 
dos. 

Iré al grano, he realizado el pro- 
grama titulado «BASIC DESDE 
EL CODIGO MAQUINA» que 
creo que es muy interesante, ya 
que hay ciertas operaciones que 
desde este último son muy engo- 
rrosas. El programa funciona bien 
sólo en parte, de pronto se detiene 
con el mensaje «Program finis- 
hed». Creo que el motivo es el 
RST 8. Si analizamos el programa 
vemos que empieza con el registro 
HL apuntando a la dirección del 
texto y luego hace una llamada a la 
subrutina llamada «CODIGO» 
que es la que se encarga de reali- 
zar el trabajo, y cuando estamos de 
vuelta se realiza el RST 8. Esta es 
la rutina de error del ZX, que des- 
pués de ejecutar sus instrucciones 
retorna a la dirección señalada in- 
directamente por (ERR SP), 


den dos bytes de memoria (a los 
ocho primeros puntos les corres- 
ponden, pues, las direcciones 
131072 y 130173), distribuidos a 
su vez de la siguiente forma: a ca-| 
da punto le corresponde un bit de | 
cada uno de los dos bytes, de for- 
ma que al primer punto le corres- 
ponde el bit 7 de la dirección 
130172 y también el bit 7 de la 
130173, al segundo punto el bit 6 
de las mismas direcciones, hasta 
llegar al punto noveno, al que le 
corresponderán el bit 7 de las di- 
recciones 130174-5, y así sucesi- 
vamente. Los bits de las direccio- 
nes pares indican si está activado 
el color verde, mientras que los 
impares indican si lo está el rojo. 
Si lo están ambos, el color que 
aparece es el blanco, mientras 
que si los dos están desactivados 
(valen cero) el color resultante 
(en realidad, la ausencia de co-| 
lor) es el negro. 

En el modo de baja resolución 
(ochó colores) el sistema es muy 
parecido, pero a cada dos bytes 
sólo le corresponden cuatro pun- 
tos. En este caso, a cada punto se 
le asignan cuatro bits, dos de ca- 
da byte de los que le toquen. Así 
al primer punto le corresponde- 
rán los bits 7 y 6 de la dirección 
130172 y también el 7 y el 6 de 
130173, al segundo punto los bits 
5 y 4 de las direcciones 130174-5, 
etc., etc. En este caso podemos 
formar, con el bit de la izquierda 
de los dos correspondientes a la 
dirección par y los dos de la im- 
par, un número binario que nos 
indicará el color utilizado (0=ne- 
gro, I=azul, 2=rojo... 7=blanco), 
mientras que el bit restante indi- 
ca si está o no activado el parpa- 
deo o flash. 

Aunque, como tú dices, los 
cartuchos no son muy baratos, | 
tampoco puede decirse que sean 
excesivamente caros; puedes uti- 
lizar uño ya usado, si tus progra- 
mas en verdad valen la pena se- 
rás generosamente recompensa- 
do. 


ERROR EN EL QL ESPAÑOL 


Existe una clara errata en el 
firmware del QL (mejor dicho, só- 
lo en el modelo español), precisa- 
mente en la instrucción POINT. 
Esta instrucción debería iluminar 
un solo punto en la pantalla grafi- 
ca, pero en lugar de esto ilumina 
dos puntos en diagonal. ¿Existe 
algún método para evitar esto?, si 
es así, ¿podrían facilitármelo? 

¿Hay algún algoritmo o método 
para simular en el QL una instruc- 
ción semejante a la instrucción 
POINT del ZX Spectrum o la ins- 
trucción TEST del Amstrad, que 
informa si un punto está iluminado 
o el color que posee éste respecti- 
vamente? 

He elaborado una serie de pro- 
gramas para el QL que me intere- 
saría mandaros. Mi pregunta es: 
¿es necesario que os los mande 
grabados en microdrives, u os bas- 
ta con un listado de los mismos?, lo 
pregunto por que los cartuchos no 
son precisamente muy baratos. 

Sin más que darles las gracias 
por su atención se despide: 

Juan I. Rodriguez 
Castilleja de la Cuesta 
(Sevilla) 

En cuanto a la instrucción 
POINT y al hipotético TEST, lo 
mejor será que te construyas un 
par de rutinas para arreglar la pri- 
mera y hacer realidad la segunda. 
Aunque lo ideal sería usar código 
máquina para ello, también pue- 
des hacerlo desde el BASIC me- 
diante PEEKs y POKEs. Por ello 
pasamos a explicarte la forma en 
que están «mapeadas» las panta- 
llas en la memoria del QL en sus 
dos modos gráficos. 

El QL utiliza para almacenar la 
pantalla en memoria nada menos 
que 32 ks, entre las direcciones 
131072 y 163839 (20000 y 27FFF 
hexadecimal) en ambos modos 
de presentación. Los puntos que- 
dan distribuidos de izquierda a 
derecha y de arriba a abajo como. 
sigue: 

En el modo de alta resolución 
a cada ocho puntos le correspon- 


lo que, tras suprimir la llamada 
correspondiente, el supuesto pi- 
rata tendría via libre para acceder 
a tus ficheros. 

Existen, sin embargo, determi- 
nados métodos, bastante clásicos 
por otra parte, que impedirán el 
acceso a tus programas a quien 
no tenga ciertos conocimientos 
de código máquina ni sepa la 
contraseña BASIC en forma de 
bytes, incluídas las variables del 
sistema, de modo que tras cargar- 
lo comience las ejecución en de- 
terminada línea del programa 
(sin que pueda evitarse con 
MERGE la autoejecución), don- 
de pueda pedirse la contraseña al 
amparo de determinada protec- 
ción anti-BREAK. 

Para usar este sistema con tu 
programa deberás hacer NEW, 
cargar el programa, insertar en él 
las siguientes líneas 9500-9550 y 
salvarlo a cinta con GOTO 9500. 
Cuando sea cargado (con LOAD 
“"CODE) se autoejecutará en la 
línea 9520, pidiéndonos la clave 
(en el ejemplo «Patatita») y ha- 
ciendo RUN sólo en el caso de 
que la clave sea la correcta. 

9500 POKE 23613,0 

9510 SAVE “nombre” CODE 
23613,PEEK 23641+256*PEEK 
2364223613 


9520 IF A$<>“Patatita” 
THEN STOP 

9540 POKE 23613,84 

9550 RUN 


En cuanto al uso que preten- 
des dar a MOVE para la actuali- 
zación de tus ficheros, no nos ha 
quedado muy clara tu pregunta. 
En cualquier caso, te podemos 
decir que la sintaxis de esta ins- 
trucción es MOVE ga TO xb, 
donde “a” y “b” son los números 
de las dos corrientes entre las 
que va a efectuarse la operación. 
Lo que hace es leer un carácter 
de “a” e imprimirlo en “b”, repi- 
tiendo esta operación hasta que 
se cumpla una determinada con- 
dición (p.e. fin de fichero) que 
depende del tipo de canal a que 
esté asociada la corriente 


Vendo procesador de textos 
especial para la GP-50-S 0 com- 
patibles. Permite la impresion 
de textos en 64 columnas sin re- 
ducción de caracteres ni modi- 
ficaciones en el hardware. Ma- 
nuel Cagiao. Apartado 2144. 
15080 La Coruña. Tel.: (981) 
78 29 52 (20 h.) 


Vendo/cambio programas til- 
timo grito para Spectrum y tam- 
bién ordenador ZX-Spectrum 
Plus a estrenar, con todos los 
accesorios. Sin usar y con ga- 
rantía por seis meses. 30.000 
ptas. Iglesias, Troitosende, No- 
vegilde, Santiago de Compos- 
tela (La Coruña). 


EL 
CORO 


Deseo contactar con usuarios 
del QL para intercambio de 
articulos de prensa, noticias o 
ideas, así como programas. 
Juan R. García Martell. Dr. 
Juan de Padilla, 42. Tel.: (928) 
31 20 90/36 60 04 (tardes). 35002 
Las Palmas de Gran Canaria. 


Estoy interesado en entrar en 
contacto con usuarios de ZX- 
Spectrum. Escribir a Mario 
Sáenz de Santamaría. Río 
Ebro, 27, 7. C. Miranda de 
Ebro (Burgos). 


Intercambio programas de to- 
do tipo para Spectrum o Ams- 
trad. A. J. Rodríguez Salas. 
Nervión, 8, 1.” B. 18015 Grana- 
da. 


Intercambio o vendo software 
para Spectrum 48 K. Amplia lis- 
ta con las últimas novedades. 
Poseo copión turbo. Interesado 
en conseguir el compilador 
«The Colt» con instrucciones. 
Escribir a: Bernardo Pou 
Fernández. Avda. Manuel del 
Palacio, 5, 4.° C. Tel.: (968) 
85 67 99. 36003 Pontevedra. 


Por cambio de ordenador ven- 
do: colección completa de re- 
vistas, cintas con programas co- 
merciales, libros, magnetofón 
Gold King, así como disco más 
interface para el Sinclair Spec- 
trum. Envío relación. Tel.: 
(958) 27 24 93. Preguntar por 
Jose. 


Catdlogo de Software 
para 
ordenadores 


personales 


Todo el Software disponible en el 
mercado reunido en un catálogo 
de 800 fichas 


1." ENTREGA 
550 FICHAS 
+ FICHERO 


Resto en dos entregas 
trimestrales de 150 fichas 


cada una 
COPIE O RECORTE ESTE CUPON DE PEDIDO 
va san es ee ee m— eee eee سس و بت‎ 
CUPON DE PEDIDO El importe lo abonaré POR CHEQUE O CONTRA REEMBOLSO O CON MI ۷ 
TARJETA DE CREDITO DI 1 
Is OLIC a HOY MISMO EL 
po 9 DE SOFTWARE A: ۱ Cargue 8.000 ptas. a mi tarjeta American Express O Visa O Interbank of 
i J Numero de mi tarjeta [ TI 1 1 
۱ i nfodis,5.ā. d. ۰ ۱ 
I Bravo Murillo, 377, sa Û CALLE 1 
Į ۰ 28020 MADRID Į CIUDAD CP. 1 
I نا‎ TELEFONO 
Î و‎ EN CONCESIONARIOS IBM E cS- = 


INTERACCION 


aa 


YAMAHA VA POR DELANTE 


Audaz. Segura. Una auténtica “trail”. Ligera como una ga- 
= cela. Fuerte como el león. Para dominar tanto a la jungla 
urbana, como a las dunas de Dakar. Su linea sabe de aven- 


turas, de horizontes abiertos. Siente en tu rostro el azote del viento de la libertad 
Descubre sus prestaciones. Y no pongas límites a tu independencia. 


MOTUL 


